LPP_Practica27_InventarioAutos

/*
    Ejercicio:
    ejemplo de un manejo de inventario sencillo en una tienda de vehículos.

    1. Primero el usuario debe digitar todos los datos del inventario inicial
       - marca
       - linea
       - color
       - cantidad inicial inventario
       - valor unitario del vehículo

    2. teniendo el inventario registrado se debe presentar un menú con las
       siguientes opciones:
       1. Ingreso de producto.
       2. Venta de producto.
       3. Cambio de Valor Unitario.
       4. Mostrar información inventario actual.
       5. Salir

    3. Repetir el menú hasta que la opción seleccionada por el usuario
       sea la 5. salir
*/
/*
    Registros
*/
registro rVehiculo
  cadena[100] marca
  cadena[100] linea
  cadena[50]  color
  entero      cantidad
  real        valorUnidad
fin registro

/*
    variables globales
*/
rVehiculo vAuto
booleano continuar
entero menu


/*
    procedimientos
*/
/* procedimiento encargado de generar titulos con formato */
procedimiento CrearTitulo(cadena[100] vTitulo)
inicio

  llamar nueva_linea
  escriba "********** " + vTitulo + " **********"
  llamar nueva_linea
  llamar nueva_linea

fin

/* procedimiento encargado de solicitar al usuario el cargue inicial de inventario */
procedimiento CargueInicialInventario
inicio

  llamar nueva_linea

  llamar CrearTitulo("Cargue Inicial de Inventario")

  escriba "Ingrese la MARCA del vehiculo: "
  lea vAuto.marca

  escriba "Ingrese la LINEA del vehiculo: "
  lea vAuto.linea

  escriba "Ingrese el COLOR del vehiculo: "
  lea vAuto.color

  escriba "Ingrese la CANTIDAD inicial de inventario: "
  lea vAuto.cantidad

  escriba "Ingrese el VALOR unitario incial del vehiculo: "
  lea vAuto.valorUnidad

  llamar nueva_linea

fin

/* Procedimiento para realziar un ingreso de inventario */
procedimiento IngresarInventario
entero nuevos
inicio

  llamar nueva_linea

  llamar CrearTitulo("Ingreso de Inventario")

  escriba "Cuantos vehiculos nuevos desea ingresar: "
  lea nuevos

  /* realizar la suma */
  vAuto.cantidad <- vAuto.cantidad + nuevos

  escriba "Ingreso realizado correctamente!"

  llamar nueva_linea

fin

/* procedimiento para venta de inventario */
procedimiento VenderVehiculo
entero vendidos
inicio

  llamar nueva_linea

  llamar CrearTitulo("Venta de vehiculos")

  escriba "Cuantos Vehiculos fueron vendidos: "
  lea vendidos

  /* resta al inventario */
  vAuto.cantidad <- vAuto.cantidad - vendidos

  escriba "Venta realizada correctamente!"

  llamar nueva_linea

fin

/* procedimiento para cambiar valor unitario */
procedimiento CambiarValorUnitario
real nuevoValor
inicio

  llamar nueva_linea

  llamar CrearTitulo("Cambio de Valor Unitario")

  escriba "Ingrese el nuevo valor del vehiculo: "
  lea nuevoValor

  /* asiganacion nuevo valor al registro */
  vAuto.valorUnidad <- nuevoValor

  escriba "Se realizo el cambio correctamente!"

  llamar nueva_linea

fin

/* procedimiento para mostrar en pantalla estado de inventario actual */
procedimiento MostrarInventario
real valorTotal
inicio

  llamar nueva_linea

  llamar CrearTitulo("Informacion de Inventario Actual")

  escriba "Marca: " + vAuto.marca
  llamar nueva_linea

  escriba "Linea: " + vAuto.linea
  llamar nueva_linea

  escriba "Color: " + vAuto.color
  llamar nueva_linea

  escriba "Cantidad: "
  escriba vAuto.cantidad
  llamar nueva_linea

  escriba "Valor Unitario: $ "
  escriba vAuto.valorUnidad
  llamar nueva_linea

  /* total inventario */
  valorTotal <- (vAuto.cantidad * vAuto.valorUnidad)

  escriba "Valor Total Inventario: $ "
  escriba valorTotal

  llamar nueva_linea

fin

/*
    funciones
*/
/* funcion para carga de menu en pantalla */
funcion CargarMenu : entero
entero opcion
inicio

  llamar nueva_linea

  llamar CrearTitulo("Menu de Opciones")

  escriba "1. Ingresar Producto."
  llamar nueva_linea
  escriba "2. Vender Producto."
  llamar nueva_linea
  escriba "3. Cambiar Valor Unitario."
  llamar nueva_linea
  escriba "4. Mostrar Informacón del Inventario Actual."
  llamar nueva_linea
  escriba "5. Salir"
  llamar nueva_linea

  escriba "Que opcion desea realizar?: "
  lea opcion

  retorne opcion

fin

/*
    programa principal
*/
inicio

/* inicializacion de variables */
continuar <- verdadero

/* ingresar informacion inicial del inventario */
llamar CargueInicialInventario()

Repita
  /* cargar el menu */
  menu <- CargarMenu()

  /* toma decisiones */
  Si (menu = 1) Entonces
    /* ingresar inventario */
    llamar IngresarInventario()
  Sino
    Si (menu = 2) Entonces
      /* vender producto */
      llamar VenderVehiculo()
    Sino
      Si (menu = 3) Entonces
        /* cambiar valor unitario */
        llamar CambiarValorUnitario()
      Sino
        Si (menu = 4) Entonces
          /* mostrar informacion del inventario */
          llamar MostrarInventario()
        Sino
          Si (menu = 5) Entonces
            /* salir */
            continuar <- falso
          Sino
            escriba "Por favor ingrese una opcion entre 1 y 5."
          Fin Si
        Fin Si
      Fin Si
    Fin Si
  Fin Si
Hasta (continuar = falso)

escriba "Gracias por utilizar nuestro programa!"

fin