viernes, 24 de julio de 2015

"MULTICAPAS" CATALOGO DEL HOTEL DECAMERON

CATALOGO DEL HOTEL DECAMERON
Option Explicit On
Public Class Form1
    ' declaracion de variables
    Dim CanPaqVen As Integer
    Dim TotRecVen As Double


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

        'cargar los elementos al combo box'
        cbxpaquete.Text = "OPCIONES DE TURISMO"
        cbxpaquete.Items.Add("PAQUETE 1 BASICO")
        cbxpaquete.Items.Add("PAQUETE 2 STANDAR")
        cbxpaquete.Items.Add("PAQUETE 3 ESPECIAL")

        txtN.Enabled = False
        txtC.Enabled = False

        cbxpaquete.Enabled = False

        txtCantidad.Enabled = False
        txtDias.Enabled = False
        txtCosto.Enabled = False
        txtSubtotal.Enabled = False
        txtIva.Enabled = False
        txtInteres.Enabled = False
        txtTotalpagar.Enabled = False
        txtCanPaqVen.Enabled = False
        txtTotRecVen.Enabled = False

        cmbGrabar.Enabled = False
        cmbLimpiar.Enabled = False
        cmbOtrares.Enabled = False
        cmbMostrar.Enabled = False


        panel1.Enabled = False

        txtCanPaqVen.Visible = False
        txtTotRecVen.Visible = False
        fondoacu1.Visible = False
        fondioacu2.Visible = False
        fondoacu3.Visible = False
        fondoacu4.Visible = False
       
    End Sub

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

    Private Sub cmbEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub cmbNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbNuevo.Click
        txtN.Enabled = True
        txtC.Enabled = True
        cbxpaquete.Enabled = True
        txtCantidad.Enabled = True
        txtDias.Enabled = True
        txtCosto.Enabled = False
        txtSubtotal.Enabled = False
        txtIva.Enabled = False
        txtInteres.Enabled = False
        txtTotalpagar.Enabled = False
        txtCanPaqVen.Enabled = False
        txtTotRecVen.Enabled = False
        cmbGrabar.Enabled = False
        cmbLimpiar.Enabled = True
        cmbOtrares.Enabled = False
        cmbMostrar.Enabled = False
        panel1.Enabled = False
        cmbNuevo.Enabled = False
        txtN.Focus()
       
    End Sub
    Private Sub cbxpaquete_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbxpaquete.SelectedValueChanged
        If cbxpaquete.SelectedItem = "PAQUETE 1 BASICO" Then
            txtCosto.Text = 500
            txtCantidad.Focus()
        ElseIf cbxpaquete.SelectedItem = "PAQUETE 2 STANDAR" Then
            txtCosto.Text = 1000
            txtCantidad.Focus()
        Else
            txtCosto.Text = 1500
            txtCantidad.Focus()
        End If
    End Sub
 
    Private Sub rbcontado_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbcontado.Click
        txtSubtotal.Text = (Val(txtCantidad.Text) * Val(txtDias.Text) * Val(txtCosto.Text))
        txtInteres.Text = 0
        txtIva.Text = Val(txtSubtotal.Text) * 0.12
        txtTotalpagar.Text = Val(txtSubtotal.Text) + Val(txtIva.Text)
        cmbOtrares.Enabled = True
        cmbGrabar.Enabled = True
    End Sub

    Private Sub rbMaster_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbMaster.Click
        txtSubtotal.Text = (Val(txtCantidad.Text) * Val(txtDias.Text) * Val(txtCosto.Text))
        txtInteres.Text = Val(txtSubtotal.Text) * 0.03
        txtIva.Text = Val(txtSubtotal.Text) * 0.12
        txtTotalpagar.Text = Val(txtSubtotal.Text) + Val(txtIva.Text)
        cmbOtrares.Enabled = True
        cmbGrabar.Enabled = True
    End Sub


    Private Sub rbVisa_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbVisa.Click
        txtSubtotal.Text = (Val(txtCantidad.Text) * Val(txtDias.Text) * Val(txtCosto.Text))
        txtInteres.Text = Val(txtSubtotal.Text) * 0.02
        txtIva.Text = Val(txtSubtotal.Text) * 0.12
        txtTotalpagar.Text = Val(txtSubtotal.Text) + Val(txtIva.Text)
        cmbOtrares.Enabled = True
        cmbGrabar.Enabled = True
    End Sub

   
    Private Sub Validacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Validacion.Click
        MsgBox("SELECIONE SU FORMA DE PAGO", MsgBoxStyle.Information)
        panel1.Enabled = True
        panel1.Focus()
    End Sub

    Private Sub cmbOtrares_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbOtrares.Click
        txtN.Text = txtN.Text
        txtC.Text = txtC.Text
        txtCosto.Clear()
        txtCantidad.Clear()
        txtDias.Clear()
        txtSubtotal.Clear()
        txtIva.Clear()
        txtInteres.Clear()
        txtTotalpagar.Clear()
        cbxpaquete.ResetText()
        panel1.Enabled = False
    End Sub

    Private Sub cmbLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLimpiar.Click
        txtN.Enabled = False
        txtN.Clear()
        txtC.Enabled = False
        txtC.Clear()

        cbxpaquete.Enabled = False
        cbxpaquete.Text = ""

        txtCantidad.Enabled = False
        txtCantidad.Clear()
        txtDias.Enabled = False
        txtDias.Clear()
        txtCosto.Enabled = False
        txtCosto.Clear()
        txtSubtotal.Enabled = False
        txtSubtotal.Clear()
        txtIva.Enabled = False
        txtIva.Clear()
        txtInteres.Enabled = False
        txtInteres.Clear()
        txtTotalpagar.Enabled = False
        txtTotalpagar.Clear()

        txtCanPaqVen.Enabled = False

        txtTotRecVen.Enabled = False

        cmbGrabar.Enabled = False
        cmbLimpiar.Enabled = False
        cmbOtrares.Enabled = False
        cmbMostrar.Enabled = False
        cmbNuevo.Enabled = True

        panel1.Enabled = False

        txtCanPaqVen.Visible = False
        txtTotRecVen.Visible = False
        fondoacu1.Visible = False
        fondioacu2.Visible = False
        fondoacu3.Visible = False
        fondoacu4.Visible = False
    End Sub

    Private Sub cmbGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGrabar.Click
        Me.lsxReserCliente.Items.Add(cbxpaquete.Text)
        Me.lsxReserCliente.Items.Add(txtN.Text)
        Me.lsxReserCliente.Items.Add(txtC.Text)
        Me.lsxReserCliente.Items.Add(txtCosto.Text)
        Me.lsxReserCliente.Items.Add(txtCantidad.Text)
        Me.lsxReserCliente.Items.Add(txtDias.Text)

        Me.lsxReserCliente.Items.Add(txtSubtotal.Text)
        Me.lsxReserCliente.Items.Add(txtIva.Text)
        Me.lsxReserCliente.Items.Add(txtInteres.Text)
        Me.lsxReserCliente.Items.Add(txtTotalpagar.Text)
    End Sub

   
    Private Sub cmbMostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbMostrar.Click
        'CONTADOR Y ACUMULADOR'
        txtCanPaqVen.Text = (Val(txtCanPaqVen) + 1)
        txtTotRecVen.Text = (Val(txtTotRecVen) + Val(txtTotalpagar))

        panel1.Enabled = True

        txtCanPaqVen.Visible = True
        txtTotRecVen.Visible = True
        fondoacu1.Visible = True
        fondioacu2.Visible = True
        fondoacu3.Visible = True
        fondoacu4.Visible = True

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PictureBox1.Visible = True
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = True
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = True
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = True
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = True
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = True
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = False
        PictureBox8.Visible = True
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = False
        PictureBox8.Visible = False
        PictureBox9.Visible = True
    End Sub

    Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click

    End Sub

End Class







No hay comentarios:

Publicar un comentario