PseIntRebel_Actividad157_AutosEscribir

Proceso Actividad156
    // Elaborar un inventario de autos de una concesionaria
    // Solo el modulo para leer. Los datos ya se encuentran.

    Definir cArchivo, vLinea Como Cadena
    Definir vOp Como Logico
    Definir cRuta Como Cadena

    //Archivo demo;
    Archivo nArchivo;
    cRuta = "C:\PruebasArchivos\"

    Registro rVehiculo{marca, linea, color, cantidad, valorUnidad}

    Escribir "GESTION DE VEHICULOS"
    Escribir sin saltar "Ingresa la marca del vehiculo: "
    Leer rVehiculo.marca
    Escribir sin saltar "Ingresa la linea del vehiculo: "
    Leer rVehiculo.linea
    Escribir sin saltar "Ingresa el color del vehiculo: "
    Leer rVehiculo.color
    Escribir sin saltar "Ingresa la cantidad de vehiculos que ingresan a almacen: "
    Leer rVehiculo.cantidad
    Escribir sin saltar "Ingresa el precio del vehiculo: "
    Leer rVehiculo.valorUnidad


    //Paso 2. Abrir el archivo a procesar.
    Escribir "¿Como se llama el archivo a usar? (Default inventario) Recuerda que esta en: ", cRuta
    Leer cArchivo
    cArchivo = cRuta + cArchivo + ".txt"
    nArchivo = AbrirArchivo( cArchivo )

    Escribir "Guardando datos en el archivo..."

    i = EscribirArchivo( nArchivo, rVehiculo.marca)
    i = EscribirArchivo( nArchivo, rVehiculo.linea )
    i = EscribirArchivo( nArchivo, rVehiculo.color )
    i = EscribirArchivo( nArchivo, rVehiculo.cantidad )
    i = EscribirArchivo( nArchivo, rVehiculo.valorUnidad )

    vOp = CerrarArchivo( nArchivo )

FinProceso