Rem ***************************************************************************************
Rem
Rem      BGL CONSULTORES
Rem
Rem      Programa La Comanda Electronica
Rem      Visual Basic para Aplicaciones, Excel/Office 2002
Rem      Programador Tomas Bradanovic
Rem
Rem      Terminado 2 ago 2007
Rem      Revisado 8 sept 2007
Rem ****************************************************************************************
Rem partimos

Private Sub userform_Activate()
Rem actvacion e inicio
    PatPorDefecto = "c:\Transportes\historia.txt"
    Inventario = "c:\Transportes\cosas.txt"
    CartaTr = "C:\transportes\cartatr.txt"
    leer_descripciones_combo
Rem llenar combo
    For Z% = 1 To 500
        If dConsumo(Z%) = "" Then Exit Sub
        ComboConsumo.AddItem dConsumo(Z%)
    Next Z%
    Rem esto debera ir en un archivo txt o ini en un futuro lejano
    ComboVendedora.AddItem "La Casa"
    ComboVendedora.AddItem "Ana"
    ComboVendedora.AddItem "Paty"
    ComboVendedora.AddItem "Sonia"
    ComboVendedora.AddItem "Karin"
    ComboVendedora.AddItem "Michelle"
    ComboVendedora.AddItem "Priscilla"
    ComboVendedora.AddItem "Pilar"
    ComboVendedora.AddItem "Lorena"
    ComboVendedora.AddItem "Gloria"
    ComboVendedora.AddItem "Conny"
    ComboVendedora.AddItem "Pamela"
    ComboVendedora.AddItem "Romina"
    ComboVendedora.AddItem "Diana"
    ComboVendedora.AddItem "v1"
    ComboVendedora.AddItem "v2"
    ComboVendedora.AddItem "v3"
End Sub

Private Sub GrabaInventario_Click()
Rem graba el inventario de la hoja en el archivo
    For Z% = 1 To 500
        puntero = Z%
        descripcion = Hoja2.Cells(Z% + 3, 2)
        stock1 = Hoja2.Cells(Z% + 3, 3)
        stock2 = Hoja2.Cells(Z% + 3, 4)
        costo = Hoja2.Cells(Z% + 3, 5)
        porciones = Hoja2.Cells(Z% + 3, 6)
        If descripcion = "" Then Exit Sub
        grabar_inventario
    Next Z%
End Sub

Private Sub GrabarCarta_Click()
Rem leer carta de tragos de la hoja y grabar al archivo
    For Z% = 1 To 1000
        puntero = Z%
        trago = Hoja3.Cells(Z% + 3, 1)
        precio1 = Hoja3.Cells(Z% + 3, 2)
        precio2 = Hoja3.Cells(Z% + 3, 3)
        f1 = Val(Hoja3.Cells(Z% + 3, 4))
        f2 = Val(Hoja3.Cells(Z% + 3, 5))
        f3 = Val(Hoja3.Cells(Z% + 3, 6))
        f4 = Val(Hoja3.Cells(Z% + 3, 7))
        f5 = Val(Hoja3.Cells(Z% + 3, 8))
        f6 = Val(Hoja3.Cells(Z% + 3, 9))
        f7 = Val(Hoja3.Cells(Z% + 3, 10))
        Rem If descripcion = "" Then Exit Sub
        grabar_carta
    Next Z%
End Sub

Private Sub LeerCarta_Click()
Rem leer carta de tragos desde el archivo hacia la hoja
    For Z% = 1 To 1000
        puntero = Z%
        leer_carta
        If trago <> "                                        " Then
            Hoja3.Cells(Z% + 3, 11) = trago
            Hoja3.Cells(Z% + 3, 12) = precio1
            Hoja3.Cells(Z% + 3, 13) = precio2
            Hoja3.Cells(Z% + 3, 14) = f1
            Hoja3.Cells(Z% + 3, 15) = f2
            Hoja3.Cells(Z% + 3, 16) = f3
            Hoja3.Cells(Z% + 3, 17) = f4
            Hoja3.Cells(Z% + 3, 18) = f5
            Hoja3.Cells(Z% + 3, 19) = f6
            Hoja3.Cells(Z% + 3, 20) = f7
        Else
            Exit Sub
        End If
    Next Z%
End Sub

Private Sub LeerInventario_Click()
Rem leer inventario desde el archivo hacia la hoja
    For Z% = 1 To 1000
        puntero = Z%
        leer_inventario
        If descripcion <> "*                             " Then
            Hoja2.Cells(Z% + 3, 2) = descripcion
            Hoja2.Cells(Z% + 3, 3) = stock1
            Hoja2.Cells(Z% + 3, 4) = stock2
            Hoja2.Cells(Z% + 3, 5) = costo
            Hoja2.Cells(Z% + 3, 6) = porciones
        Else
            Exit Sub
        End If
    Next Z%
End Sub

Private Sub CommOk_Click()
Rem fin de ingreso de venta (boton OK)
        If CheckVip.Value = True Then
            vip = "V"
        Else
            vip = "F"
        End If
        vende = ComboVendedora.ListIndex + 1
        grabar_historico
        Rem rebajar
        cantidad = TextCantidad.Text
        If cantidad <> 0 Then
            puntero = ComboConsumo.ListIndex + 1
            leer_carta
            rebajar_inventario
        End If
        Rem borrar casillas texto
        ComboVendedora.Text = ""
        TextCantidad.Text = ""
        ComboConsumo.Text = ""
        TextValor.Text = ""
        CheckVip.Value = False
        ComboVendedora.SetFocus
End Sub
Rem rebaja de inventario
Rem cada trago de la carta tiene una receta de sus componentes
Rem expresados en porciones
Rem la receta se guarda en f1, f2 .... f7
Rem aqui se identifica el trago y se rebajan los componentes
Sub rebajar_inventario()
         If vip = "F" Then
            If f1 <> 0 Then
                puntero = f1: leer_inventario
                stock1 = stock1 - (cantidad / porciones)
                grabar_inventario
            End If
            If f2 <> 0 Then
                puntero = f2: leer_inventario
                stock1 = stock1 - (cantidad / porciones)
                test2 = stock1
                grabar_inventario
            End If
            If f3 <> 0 Then
                puntero = f3: leer_inventario
                stock1 = stock1 - (cantidad / porciones)
                grabar_inventario
            End If
            If f4 <> 0 Then
                puntero = f4: leer_inventario
                stock1 = stock1 - (cantidad / porciones)
                grabar_inventario
            End If
            If f5 <> 0 Then
                puntero = f5: leer_inventario
                stock1 = stock1 - (cantidad / porciones)
                grabar_inventario
            End If
            If f6 <> 0 Then
                puntero = f6: leer_inventario
                stock1 = stock1 - (cantidad / porciones)
                grabar_inventario
            End If
            If f7 <> 0 Then
                puntero = f7: leer_inventario
                stock1 = stock1 - (cantidad / porciones)
                grabar_inventario
            End If
        Else
            If f1 <> 0 Then
                puntero = f1: leer_inventario
                stock2 = stock2 - (cantidad / porciones)
                grabar_inventario
            End If
            If f2 <> 0 Then
                puntero = f2: leer_inventario
                stock2 = stock2 - (cantidad / porciones)
                grabar_inventario
            End If
            If f3 <> 0 Then
                puntero = f3: leer_inventario
                stock2 = stock2 - (cantidad / porciones)
                grabar_inventario
            End If
            If f4 <> 0 Then
                puntero = f4: leer_inventario
                stock2 = stock2 - (cantidad / porciones)
                grabar_inventario
            End If
            If f5 <> 0 Then
                puntero = f5: leer_inventario
                stock2 = stock2 - (cantidad / porciones)
                grabar_inventario
            End If
            If f6 <> 0 Then
                puntero = f6: leer_inventario
                stock2 = stock2 - (cantidad / porciones)
                grabar_inventario
            End If
            If f7 <> 0 Then
                puntero = f7: leer_inventario
                stock2 = stock2 - (cantidad / porciones)
                grabar_inventario
            End If
        End If
End Sub
Rem formatea fecha en forma estandar
Private Sub TextFecha2_Change()
    If Len(TextFecha2) = 2 Then
        TextFecha2.Text = TextFecha2.Text & "/"
        TextFecha2.SelStart = Len(TextFecha2.Text)
    ElseIf Len(TextFecha2.Text) = 5 Then
        TextFecha2.Text = TextFecha2.Text & "/"
        TextFecha2.SelStart = Len(TextFecha2.Text)
    End If
    fecha = TextFecha2.Text
End Sub
Private Sub CommandButton1_Click()
Rem cambia a FormCaja
        Hoja1.Activate
        Unload FormIngreso
        Load FormCaja
        FormCaja.Show
End Sub

Private Sub Label11_Click()
Rem hace visible el password
    TextPass.Visible = True
    ButtomPass.Visible = True
    TextPass.SetFocus
End Sub
Private Sub ButtomPass_Click()
    Rem lee password
    If TextPass.Text = "AQUI_VA_EL_PASSWORD" Then
        ButtonCerrarDia.Visible = True
        GrabaInventario.Visible = True
        GrabarCarta.Visible = True
        LeerInventario.Visible = True
        LeerCarta.Visible = True
        ButtonOcultar.Visible = True
    End If
End Sub

Private Sub ButtonCerrarDia_Click()
    Rem carga FormFinDia
    Unload FormIngreso
    Load FormFinDia
    FormFinDia.Show
End Sub

Private Sub ButtonOcultar_Click()
    Rem oculta botones y password
    ButtonCerrarDia.Visible = False
    GrabaInventario.Visible = False
    GrabarCarta.Visible = False
    LeerInventario.Visible = False
    LeerCarta.Visible = False
    TextPass.Visible = False
    ButtomPass.Visible = False
End Sub

Private Sub ComboConsumo_AfterUpdate()
Rem coloca el precio automaticamente
puntero = ComboConsumo.ListIndex + 1
leer_carta
        If CheckVip.Value <> "Falso" Then
            TextValor.Text = TextCantidad.Text * precio1
        Else
            TextValor.Text = TextCantidad.Text * precio2
        End If
End Sub

Private Sub Label13_Click()
        Rem carga FormCaja
        Hoja1.Activate
        Unload FormIngreso
        Load FormCaja
        FormCaja.Show
End Sub
Public Sub grabar_historico()
Rem grabar histotico
    Open PatPorDefecto For Random As 1 Len = 100
        Get 1, 1, Hist
        ultimo = Val(Hist.vendedora)
        If Val(ultimo) = 0 Then
            ultimo = ultimo + 1
        End If
        puntero = ultimo + 1
        Hist.vendedora = puntero
        Put 1, 1, Hist
        Hist.vendedora = vende
        Hist.cantidad = TextCantidad.Text
        Hist.consumo = ComboConsumo.Text
        Hist.valor = TextValor.Text
        Hist.codigoconsumo = codigoconsumo
        Hist.vip = vip
        Hist.fecha = fecha
        Put 1, puntero, Hist
    Close
End Sub

Public Sub leer_inventario()
Rem leer registro inventario desde archivo
    Open Inventario For Random As 1 Len = 100
        Get 1, puntero, Inv
        descripcion = Inv.descripcion
        stock1 = Inv.stock1
        stock2 = Inv.stock2
        costo = Inv.costo
        porciones = Inv.porciones
    Close
End Sub

Public Sub grabar_inventario()
Rem grabar registro inventario desde archivo
    Open Inventario For Random As 1 Len = 100
        Inv.descripcion = descripcion
        Inv.stock1 = stock1
        Inv.stock2 = stock2
        Inv.costo = costo
        Inv.porciones = porciones
        Put 1, puntero, Inv
    Close
End Sub

Sub leer_descripciones_combo()
Rem leer las descripciones en vector dConsumo()
    For Z% = 1 To 500
        puntero = Z%
        leer_carta
        dConsumo(Z%) = trago
    Next Z%
End Sub
Public Sub leer_carta()
Rem leer registro carta de tragos desde archivo
    Open CartaTr For Random As 1 Len = 100
        Get 1, puntero, Car
        trago = Car.trago
        precio1 = Car.precio1
        precio2 = Car.precio2
        f1 = Car.f1
        f2 = Car.f2
        f3 = Car.f3
        f4 = Car.f4
        f5 = Car.f5
        f6 = Car.f6
        f7 = Car.f7
    Close
End Sub

Public Sub grabar_carta()
Rem grabar registro carta de tragos desde hoja
    Open CartaTr For Random As 1 Len = 100
        Car.trago = trago
        Car.precio1 = precio1
        Car.precio2 = precio2
        Car.f1 = f1
        Car.f2 = f2
        Car.f3 = f3
        Car.f4 = f4
        Car.f5 = f5
        Car.f6 = f6
        Car.f7 = f7
        Put 1, puntero, Car
    Close
End Sub