'REPASO DE VARIABLES, CONTADORES Y ACUMULADORES’

'REPASO DE VARIABLES, CONTADORES Y ACUMULADORES’

Public Class Form1

    Dim bgq, bgc, bgm, bgg As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'CARGA LOS ELEMENTOS DEL COMBOBOX CBXDESTINO

        cbxDestino.Items.Add("GQUIL - QUITO")

        cbxDestino.Items.Add("GQUIL - CUENCA")

        cbxDestino.Items.Add("GQUIL - MACHALA")

        cbxDestino.Items.Add("GQUIL - GALAPAGOS")

        'ASIGNAR LOS VALORES INICIALES A LOS DIFERENCIADORES

        txtGQdispo.Text = 100

        txtGMdispo.Text = 100

        txtGCdispo.Text = 100

        txtGGdispo.Text = 50

        cbxDestino.SelectedValue = ""

        txtCosto.Clear()

        txtCantidad.Clear()

        txtSubtotal.Clear()

        txtIva.Clear()

        txtLiquido.Clear()

    End Sub

    Private Sub cbxDestino_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbxDestino.SelectedValueChanged

        If cbxDestino.SelectedItem = "GQUIL - QUITO" Then

            txtCosto.Text = 230

        ElseIf cbxDestino.SelectedItem = "GQUIL - CUENCA" Then

            txtCosto.Text = 170

        ElseIf cbxDestino.SelectedItem = "GQUIL - MACHALA" Then

            txtCosto.Text = 130

        Else

            txtCosto.Text = 400

        End If

    End Sub

    Private Sub cmbTotolizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbTotolizar.Click

        'Decremento de Diferenciadores

        If cbxDestino.SelectedItem = "GQUIL - QUITO" Then

            If (Val(txtCantidad.Text) > Val(txtGQdispo.Text)) Then

                MessageBox.Show("NO TIENE CUPOS DISPONIBLES, INGRESE CANTIDAD CORRECTA")

                txtCantidad.Clear()

                txtCantidad.Focus()

            Else

                txtGQdispo.Text = (Val(txtGQdispo.Text) - Val(txtCantidad.Text))

            End If

        ElseIf cbxDestino.SelectedItem = "GQUIL - CUENCA" Then

            If (Val(txtCantidad.Text) > Val(txtGCdispo.Text)) Then

                MessageBox.Show("NO TIENE CUPOS DISPONIBLES, INGRESE CANTIDAD CORRECTA")

                txtCantidad.Clear()

                txtCantidad.Focus()

       

            Else

                txtGCdispo.Text = (Val(txtGCdispo.Text) - Val(txtCantidad.Text))

            End If

        ElseIf cbxDestino.SelectedItem = "GQUIL - MACHALA" Then

            If (Val(txtCantidad.Text) > Val(txtGMdispo.Text)) Then

                MessageBox.Show("NO TIENE CUPOS DISPONIBLES, INGRESE CANTIDAD CORRECTA")

                txtCantidad.Clear()

                txtCantidad.Focus()

            Else

                txtGMdispo.Text = (Val(txtGMdispo.Text) - Val(txtCantidad.Text))

            End If

        Else

            If (Val(txtCantidad.Text) > Val(txtGGdispo.Text)) Then

                MessageBox.Show("NO TIENE CUPOS DISPONIBLES, INGRESE CANTIDAD CORRECTA")

                txtCantidad.Clear()

                txtCantidad.Focus()

            Else

                txtGGdispo.Text = (Val(txtGGdispo.Text) - Val(txtCantidad.Text))

            End If

        End If

        ' calculos realizados si la venta es correcta

        txtSubtotal.Text = (Val(txtCosto.Text) * Val(txtCantidad.Text))

        txtIva.Text = (Val(txtSubtotal.Text) * 0.12)

        txtLiquido.Text = (Val(txtSubtotal.Text) + Val(txtIva.Text))

        'Incremento de CONTADOR y ACUMULADOR

        txtNumvta.Text = (Val(txtNumvta.Text) + 1)

        txtTotrec.Text = (Val(txtTotrec.Text) + Val(txtLiquido.Text))

    End Sub

    Private Sub cmbLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLimpiar.Click

        cbxDestino.SelectedValue = ""

        txtCosto.Clear()

        txtCantidad.Clear()

        txtSubtotal.Clear()

        txtIva.Clear()

        txtLiquido.Clear()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        txtNumvta.Text = 0

        txtTotrec.Text = 0

    End Sub

End Class

Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click

        Me.Close()

    End Sub

End Class