Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #! /bin/bash
- #
- . Funciones.sh
- while [[ $op != 0 ]]; do # do while
- menuABM
- Read "$Op"
- case $op in
- 0) ;; # Regresa al menuP
- 1)
- setTitle "A L T A"
- setCI # Pide C.I
- [ $ci != 0 ] && ( ! Reg $ci ) && { # CI != 0 y no esta registrado
- setDatos # Pide los otros datos
- while ( Confirmar "dar de alta a $name" ); do
- Read "$Op"
- case $op in
- 0)
- echo "${name}|${ci}|${nAp}|${tel}" >> 'Datos/Propietarios'
- AvisoE "registrado correctamente"
- ;;
- 1) AvisoC "registrado" ;;
- esac
- done
- }
- ;;
- 2)
- VerificarSiHayDatos
- setTitle "B A J A"
- setCI "a dar de baja "
- [ $ci != 0 ] && ( ! Reg $ci 'N' ) && { # CI != 0 y esta registrado
- ( ! Deudas $ci ) && { # No tiene deudas
- name="$( grep $ci Datos/Propietarios | cut -d '|' -f 1 )"
- while ( Confirmar "dar de baja a $name" ); do
- Read "$Op"
- case $op in
- 0) BorrarLinea $ci 'Datos/Propietarios' 'P' ;;
- 1) AvisoC "dado de baja" ;;
- esac
- done
- }
- }
- ;;
- 3)
- VerificarSiHayDatos
- setTitle "M O D I F I C A C I O N"
- setCI "a modificar "
- [ $ci != 0 ] && ( ! Reg $ci 'N' ) && {
- ( ! Deudas $ci ) && {
- setDatos
- name_a="$( grep $ci Datos/Propietarios | cut -d '|' -f 1 )"
- while ( Confirmar "modificar a $name_a" ); do
- Read "$Op"
- case $op in
- 0)
- # Obtengo los datos anteriores
- nAp_a=$( grep -w "$ci" Datos/Propietarios | cut -d '|' -f 3 )
- tel_a=$( grep -w "$ci" Datos/Propietarios | cut -d '|' -f 4 )
- # Remplazar
- sed -i "/${ci}/ s/${name_a}/${name}/" 'Datos/Propietarios'
- sed -i "/${ci}/ s/|${nAp_a}|/|${nAp}|/" 'Datos/Propietarios'
- sed -i "/${ci}/ s/|${tel_a}/|${tel}/" 'Datos/Propietarios'
- AvisoE "editado correctamente"
- ;;
- 1) AvisoC "editado" ;;
- esac
- done
- }
- }
- ;;
- 4) ListarP && Esperar ;;
- 5)
- VerificarSiHayDatos
- [ ! -f 'Datos/Deudas' ] && { # Si no existe
- Rojo "\n\n
- No hay Deudas registradas en el Sistema."
- Esperar
- } || { # Si existe
- setTitle "A N U L A R D E U D A"
- setCI "para anular deuda "
- [ $ci != 0 ] && {
- ( ! Reg $ci 'N' ) && ( Deudas $ci 'N' ) && {
- BorrarLinea $ci 'Datos/Deudas' 'D'
- }
- }
- }
- ;;
- *) OpInvalida ;;
- esac
- done
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement