[Duda] [AYUDA] reporte de ventas de local

[Marengo97]

Hola familia, aquí mi duda. Estoy realizando un programa como estudio donde registro ventas de productos de una tienda, el programa tiene que generar un reporte de las ventas realizadas para luego utilizarla en otro programa que aun no he hecho, mi duda es la siguiente, para hacerlo mas desafiante se me ocurrio que podria por medio de logica automatizar al programa para que pueda reconocer cuando un producto que se vendio se repite y asi en uno de los campos del archivo indexado (el reporte de ventas) vaya sumando la cantidad que se vendio de ese producto..y no se realmente si es posible algo así y no se como hacerlo o no es posible, estoy entre varias ideas pero que no llegan a ningun lado y apreciaría mucho una ayuda, espero se haya entendio lo que hace el programa y mi duda existencial

Entre otras cosas tambien el programa genera un ticket para el cliente, esa parte aun no llegue porque estoy estancado en el reporte.

E aqui el código, cualquier consejo o mejora que pueda aplicar seria genial porque soy un principiante aun en esto hasta ahora me han ayudado mucho en esta comunidad y he mejorado gracias a eso!

              IDENTIFICATION DIVISION.
       PROGRAM-ID.                VENTAS-LOCAL.
 
       DATE-WRITTEN.              19/2/2023.
       AUTHOR.                    LUCAS GALEANO.
 
       ENVIRONMENT DIVISION.
 
       INPUT-OUTPUT SECTION.
 
       FILE-CONTROL.
           SELECT REPORTE-VENTAS  ASSIGN TO "VENTAS.DAT"
                                  ORGANIZATION IS INDEXED
                                  ACCESS MODE  IS DYNAMIC
                                  RECORD KEY   IS ID-PRODUCTO.
 
           SELECT STOCK-MAESTRO   ASSIGN TO "STOCK-MAESTRO.DAT"
                                  ORGANIZATION IS INDEXED
                                  ACCESS MODE  IS DYNAMIC
                                  RECORD KEY   IS LLAVE-NUMERO-PRODUCTO.
 
           SELECT TICKET          ASSIGN TO "TICKET.DAT"
                                  ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
 
       FILE SECTION.
 
       FD REPORTE-VENTAS.
 
       01 VENTA.
           05 LLAVE-VENTAS.
               10 ID-PRODUCTO     PIC 9(2).
           05 NOMBRE              PIC X(20).
           05 U-VENDIDAS          PIC 9(2).
           05 PRECIO-BASE         PIC 9(4).
 
       FD STOCK-MAESTRO.
 
       01 LLAVE.
           05 LLAVE-NUMERO-PRODUCTO PIC 9(2).
       01 REG-PRODUCTOS.
           05 NOMBRE-PRO      PIC X(20).
           05 CANTIDAD-INICIAL PIC 9(3).
           05 ENTRADA         PIC 9(3).
           05 SALIDA          PIC 9(3).
           05 TOTAL           PIC 9(3).
           05 VALOR-VENTA     PIC 9(5).
       FD TICKET.
 
       01 TICKET-DATOS.
           05 TABLA OCCURS 100.
               10 CANTIDAD            PIC 9(2).
               10 NOMBRE-PRO-T        PIC X(20).
               10 PRECIO              PIC 9(5).
               10 TOTAL-T             PIC 9(5).
               10 RECIBIMOS           PIC 9(5).
               10 VUELTO              PIC 9(5).
 
       WORKING-STORAGE SECTION.
 
      *>***********************************************************************
      *>  *                         MENU INTERFAZ                             *
      *>***********************************************************************
       01 WS-TITULO.
           05 FILLER              PIC X(38).
           05 FILLER              PIC X(4)  VALUE "MENU".
           05 FILLER              PIC X(38).
 
       01 WS-OPC-1.
           05 FILLER              PIC X(36) VALUE SPACES.
           05 FILLER              PIC X(17) VALUE "1.REGISTRAR VENTA".
           05 FILLER              PIC X(36) VALUE SPACES.
       01 WS-OPC-2.
           05 FILLER              PIC X(36) VALUE SPACES.
           05 FILLER              PIC X(17) VALUE "2.PROCESAR TICKET".
           05 FILLER              PIC X(36) VALUE SPACES.
       01 WS-OPC-3.
           05 FILLER              PIC X(36) VALUE SPACES.
           05 FILLER              PIC X(17) VALUE "3.IMPRIMIR TICKET".
           05 FILLER              PIC X(36) VALUE SPACES.
 
       01 WS-OPC-0.
           05 FILLER              PIC X(36) VALUE SPACES.
           05 FILLER              PIC X(7)  VALUE "0.SALIR.".
           05 FILLER              PIC X(36) VALUE SPACES.
 
      *>***********************************************************************
      *>*                         TICKET                                      *
      *>***********************************************************************
 
       01 WS-COLUMNA1.
           05 FILLER              PIC X(10) VALUE SPACES.
           05 FILLER              PIC X(59) VALUE ALL "=".
           05 FILLER              PIC X(10) VALUE SPACES.
 
 
 
       01 WS-COLUMNA2.
           05 FILLER              PIC X(10) VALUE SPACES.
           05 FILLER              PIC X(59) VALUE ALL "=".
           05 FILLER              PIC X(10) VALUE SPACES.
 
       01 WS-LINEA-PRODUCTO.
           05 FILLER              PIC X(15) VALUE SPACES.
           05 WS-CANTIDAD         PIC 9(2).
           05 WS-NOMBRE-PRO       PIC X(20).
           05 FILLER              PIC X(30) VALUE SPACES.
           05 WS-PRECIO           PIC 9(5).
           05 FILLER              PIC X(15) VALUE SPACES.
 
       01 WS-LINEA-TOTAL.
           05 FILLER              PIC X(37).
           05 FILLER              PIC X(7) VALUE "TOTAL: ".
           05 WS-TOTAL            PIC 9(5).
           05 FILLER              PIC X(37).
 
       01 WS-LINEA-RECIBO.
           05 FILLER              PIC X(34).
           05 FILLER              PIC X(11) VALUE "RECIBIMOS: ".
           05 WS-RECIBIMOS        PIC 9(5).
           05 FILLER              PIC X(34).
 
       01 WS-LINEA-VUELTO.
           05 FILLER              PIC X(36).
           05 FILLER              PIC X(8) VALUE "VUELTO: ".
           05 WS-VUELTO           PIC 9(5).
           05 FILLER              PIC X(36).
 
       77 WS-TERMINAR-PROG        PIC X(2)  VALUE "NO".
       77 WS-CONTINUAR            PIC X(2)  VALUE "SI".
       77 WS-REG-EXISTE           PIC X     VALUE "T".
       77 WS-OPC                  PIC 9.
 
       PROCEDURE DIVISION.
 
       010-MENU.
           OPEN OUTPUT REPORTE-VENTAS.
           OPEN I-O STOCK-MAESTRO.
           OPEN OUTPUT TICKET.
           PERFORM UNTIL WS-TERMINAR-PROG = "SI"
               DISPLAY WS-TITULO
               DISPLAY " "
               DISPLAY WS-OPC-1
               DISPLAY " "
               DISPLAY WS-OPC-2
               DISPLAY " "
               DISPLAY WS-OPC-3
               DISPLAY " "
               DISPLAY WS-OPC-0
               ACCEPT WS-OPC
           EVALUATE WS-OPC
               WHEN 1 PERFORM 020-REGISTRAR-VENTA
               WHEN 2 PERFORM PROCESAR-TICKET
               WHEN 3 PERFORM IMPRIMIR-TICKET
               WHEN 0 MOVE "SI" TO WS-TERMINAR-PROG
           END-EVALUATE
           END-PERFORM.
           CLOSE REPORTE-VENTAS.
           CLOSE STOCK-MAESTRO.
           CLOSE TICKET.
           STOP RUN.
 
       020-REGISTRAR-VENTA.
           PERFORM UNTIL WS-CONTINUAR = "NO"
           DISPLAY "INGRESE ID DEL PRODUCTO: " WITH NO ADVANCING
           ACCEPT LLAVE-NUMERO-PRODUCTO
           READ STOCK-MAESTRO
               INVALID KEY MOVE "F" TO WS-REG-EXISTE
           END-READ
           IF WS-REG-EXISTE = "F" THEN
               DISPLAY " "
               DISPLAY "PRODUCTO FUERA DE STOCK."
           ELSE
               DISPLAY " "
               DISPLAY "PRODUCTO: " WITH NO ADVANCING
               DISPLAY NOMBRE-PRO   WITH NO ADVANCING
               DISPLAY "STOCK: "    WITH NO ADVANCING
               DISPLAY TOTAL        WITH NO ADVANCING
               DISPLAY "PRECIO: "   WITH NO ADVANCING
               DISPLAY VALOR-VENTA
               DISPLAY " "
               DISPLAY "INGRESE EL MES ACTUAL: " WITH NO ADVANCING
               MOVE LLAVE-NUMERO-PRODUCTO TO ID-PRODUCTO
               MOVE NOMBRE-PRO TO NOMBRE
               WRITE VENTA
 

[JCantero]

@Marengo97, efectivamente esa seria la idea.

Observación1. Lo primero es que al realizar la venta, no solo tendrias que ver si existe el producto o no, sino tambien que tengas stock para venderlo.

Observación2. En la FD de ventas no necesitas tener la descripción pues hay que evitar los campos duplicados.

Y entrando en tu duda, tienes que inicializar registro de VENTA, leer REPORTE-VENTA, incrementar el numero de elementos vendidos, si NO existia WRITE VESTAS, si existia REWRITE VENTAS

Para esto ultimo necesitas un "file status", para reconocer si un registro existe o no.

Te recomiendo que le eches un vistazo al post de FPAIX: [Información] Ejemplos de manejo de archivos y tecla de funcion

En el hace un mantenimiento de un fichero indexado. Dedicale tiempo y pregunta lo que no entiendas.

Para hacer lo que tu quieres necesitas añadir estas cosas:

en SELECT

           SELECT REPORTE-VENTAS  ASSIGN TO "VENTAS.DAT"
                                  ORGANIZATION IS INDEXED
                                  ACCESS MODE  IS DYNAMIC
                                  RECORD KEY   IS ID-PRODUCTO
                                  FILE STATUS FS-REPORTE-VENTAS.

en WORKING ( para hacerlo bien, al abrir el fichero (open i-o) hay que preguntar si f-noexiste-REPORTE-VENTAS (ya que metera un 35 en el file status)y si no permitir crearlo y hacer (open output), cuando leas preguntar esta-REPORTE-VENTAS para despues hacer un write o rewrite)

       01  FS-REPORTE-VENTAS PIC XX.
              88 esta-REPORTE-VENTAS             value '00' '02'.
              88 n-esta-REPORTE-VENTAS           value '23'.
              88 fin-REPORTE-VENTAS              value '46'  '10'.
              88 bloqueado-REPORTE-VENTAS        value '99' '90'.
              88 f-bloqueado-REPORTE-VENTAS      value '38' '93'.
              88 f-noexiste-REPORTE-VENTAS       value '35'.

En PROCEDURE

       PROCEDURE DIVISION.
       DECLARATIVES.
       File-Error SECTION.
           USE AFTER STANDARD ERROR PROCEDURE ON reporte-ventas.      
       END DECLARATIVES.

ante de hacer el write ventas:

               initialize venta
               MOVE LLAVE-NUMERO-PRODUCTO TO ID-PRODUCTO
               read reporte-ventas end-read
               add unidades-vendidas to u-vendidas
               if esta-REPORTE-VENTAS then
                    rewrite venta end-rewrite
               else
                    write venta end-write
               end-if.

y si lo quieres multiproceso tienes que controlar que este bloqueado el registro venta pero esto ya es afinar muchos

               initialize venta
               MOVE LLAVE-NUMERO-PRODUCTO TO ID-PRODUCTO
               perform test after until not bloqueado-REPORTE-VENTAS
                    read reporte-ventas end-read
                    if bloqueado-REPORTE-VENTAS then
                        display 'Registro bloqueado. Pulse intro para reintentar'
                        accept ws-continuar
                    end-if
               end-perform
               add unidades-vendidas to u-vendidas
               if esta-REPORTE-VENTAS then
                    rewrite venta end-rewrite
               else
                    write venta end-write
               end-if.

Pregunta lo que no entiendas, pero revisa el link que te he puesto.

[JCantero]

Se me olvidaba, reporte-ventas debe estar abierto i-o, si deseas inicializar el fichero cada vez:

     open output reporte-ventas.
     close reporte-ventas.
     open i-o reporte-ventas.

[Marengo97]

❞ @Marengo97, efectivamente esa seria la idea. Observación1. Lo primero es que al realizar la venta, no solo tendrias que ver si existe el producto o no, sino tambien que tengas stock para venderlo. Observación2. En la FD de ventas no necesitas tener la descripción pues hay que evitar los campos duplicados. Y entrando en tu duda, tienes que inicializar registro de VENTA, leer REPORTE-VENTA, incrementar el numero de elementos vendidos, si NO existia WRITE VESTAS, si existia REWRITE VENTAS Para esto ultimo necesitas un "file status", para reconocer si un registro existe o no. Te recomiendo que le eches un vistazo al post de FPAIX: [Información] Ejemplos de manejo de archivos y tecla de funcion En el hace un mantenimiento de un fichero indexado. Dedicale tiempo y pregunta lo que no entiendas. Para hacer lo que tu quieres necesitas añadir estas cosas: en SELECT            SELECT REPORTE-VENTAS  ASSIGN TO "VENTAS.DAT"                                   ORGANIZATION IS INDEXED                                   ACCESS MODE  IS DYNAMIC                                   RECORD KEY   IS ID-PRODUCTO                                   FILE STATUS FS-REPORTE-VENTAS. en WORKING ( para hacerlo bien, al abrir el fichero (open i-o) hay que preguntar si f-noexiste-REPORTE-VENTAS (ya que metera un 35 en el file status)y si no permitir crearlo y hacer (open output), cuando leas preguntar esta-REPORTE-VENTAS para despues hacer un write o rewrite)        01  FS-REPORTE-VENTAS PIC XX.               88 esta-REPORTE-VENTAS             value '00' '02'.               88 n-esta-REPORTE-VENTAS           value '23'.               88 fin-REPORTE-VENTAS              value '46'  '10'.               88 bloqueado-REPORTE-VENTAS        value '99' '90'.               88 f-bloqueado-REPORTE-VENTAS      value '38' '93'.               88 f-noexiste-REPORTE-VENTAS       value '35'. En PROCEDURE        PROCEDURE DIVISION.        DECLARATIVES.        File-Error SECTION.            USE AFTER STANDARD ERROR PROCEDURE ON reporte-ventas.              END DECLARATIVES. ante de hacer el write ventas:                initialize venta                MOVE LLAVE-NUMERO-PRODUCTO TO ID-PRODUCTO                read reporte-ventas end-read                add unidades-vendidas to u-vendidas                if esta-REPORTE-VENTAS then                     rewrite venta end-rewrite                else                     write venta end-write                end-if. y si lo quieres multiproceso tienes que controlar que este bloqueado el registro venta pero esto ya es afinar muchos                initialize venta                MOVE LLAVE-NUMERO-PRODUCTO TO ID-PRODUCTO                perform test after until not bloqueado-REPORTE-VENTAS                     read reporte-ventas end-read                     if bloqueado-REPORTE-VENTAS then                         display 'Registro bloqueado. Pulse intro para reintentar'                         accept ws-continuar                     end-if                end-perform                add unidades-vendidas to u-vendidas                if esta-REPORTE-VENTAS then                     rewrite venta end-rewrite                else                     write venta end-write                end-if. Pregunta lo que no entiendas, pero revisa el link que te he puesto.

Estuve analizando el programa que me pasaste y la verdad es muy bueno, tiene varias cosas que agarrar como ejemplo, aunque es dificil de leer a veces, digamos que lo entendi en su mayoria excepto algunas cosas, si te parece puedo preguntarte sobre esto en relacion con mi programa por privado asi no hacer del posteo algo muy extenso.

Igual aprovecho para preguntarte sobre el FD reporte-ventas, segun me dijiste es mejor que solo declare su longitud total y ya, para evitar campos duplicados, podrias explicarme mas por que es mejor hacerlo así?, capaz es evidente la respuesta pero a veces teng esos dilemas si usar la working-storage o trabajar mas desde el FD, ahora yo removi los campos del FD pero, ¿si no declaro la llave del archivo que hago?, o puedo eliminar todos los demas campos del Fd excepto el de la llave?

[Marengo97]

Mirá, probé utilizando tablas, ya a estas alturas estoy experimentando y estoy incluso mas perdido el output me sale asi:

❞ 00 01 00000

No me suma la cantidad de unidades vendidas (ws-u-vendidas) no importa cuantas veces repita y por algun motivo me muestra el nombre en espacios...estoy perdiendo la cordura jaja
y encima estoy lidiendo con el error "not numeric" constantemente por los espacios que pasan con el MOVE.

       REGISTRAR-VENTA.
           PERFORM varying I from 1 by 1 until WS-CONTINUAR
                                                equals "n" or
                                                I > 100
           INITIALIZE REG-PRODUCTOS LLAVE WS-VENTA 
           DISPLAY "INGRESE ID DEL PRODUCTO: " WITH NO ADVANCING
           ACCEPT LLAVE-NUMERO-PRODUCTO
           MOVE LLAVE-NUMERO-PRODUCTO TO WS-ID-AUX
           READ STOCK-MAESTRO
               INVALID KEY MOVE "F" TO WS-REG-EXISTE
           END-READ
           IF WS-REG-EXISTE = "F" THEN
               DISPLAY " "
               DISPLAY "PRODUCTO FUERA DE STOCK."
           ELSE
               DISPLAY "INGRESE EL MES ACTUAL: " WITH NO ADVANCING
               ACCEPT WS-MES(I)
 
               MOVE LLAVE-NUMERO-PRODUCTO TO WS-ID-PRODUCTO(I)
               MOVE NOMBRE-PRO TO WS-NOMBRE(I)
               COMPUTE VALOR-VENTA = FUNCTION NUMVAL(VALOR-VENTA)
               MOVE VALOR-VENTA TO WS-PRECIO-BASE(I)
           
           SEARCH ALL WS-TABLA
              
               AT END MOVE "T" TO WS-REG-EXISTE
               WHEN WS-ID-PRODUCTO(I) = WS-AUX-INDICE
               
               COMPUTE WS-U-VENDIDAS(I) = WS-U-VENDIDAS(I)+ 1
               DISPLAY "SE ACTUALIZÓ EL REGISTRO."
               DISPLAY WS-TABLA(I)
           END-SEARCH
           END-PERFORM.

- - - Updated - - -

Cita de mi comentario: Uso las tablas porque borre la descripcion de FD como me habias aconsejado por lo tanto paso los datos por una tabla y luego habrian de ser escritas en el reporte-ventas.

[JCantero]

@Marengo97, la sugerencia de no repetir campos era porque nombre lo puedes leer de stock-maestro.

El problema que veo en la reforma que has hecho es que debes marcar lo que hay que ejecutar despues del else. Eso se hace con end-if.

REGISTRAR-VENTA.
           PERFORM varying I from 1 by 1 until WS-CONTINUAR
                                                equals "n" or
                                                I > 100
           INITIALIZE REG-PRODUCTOS LLAVE WS-VENTA 
           DISPLAY "INGRESE ID DEL PRODUCTO: " WITH NO ADVANCING
           ACCEPT LLAVE-NUMERO-PRODUCTO
           MOVE LLAVE-NUMERO-PRODUCTO TO WS-ID-AUX
           READ STOCK-MAESTRO
               INVALID KEY MOVE "F" TO WS-REG-EXISTE
           END-READ
           IF WS-REG-EXISTE = "F" THEN
               DISPLAY " "
               DISPLAY "PRODUCTO FUERA DE STOCK."
           ELSE
               DISPLAY "INGRESE EL MES ACTUAL: " WITH NO ADVANCING
               ACCEPT WS-MES(I)
 
               MOVE LLAVE-NUMERO-PRODUCTO TO WS-ID-PRODUCTO(I)
               MOVE NOMBRE-PRO TO WS-NOMBRE(I)
               COMPUTE VALOR-VENTA = FUNCTION NUMVAL(VALOR-VENTA)
               MOVE VALOR-VENTA TO WS-PRECIO-BASE(I)
              SEARCH ALL WS-TABLA
              
               AT END MOVE "T" TO WS-REG-EXISTE
               WHEN WS-ID-PRODUCTO(I) = WS-AUX-INDICE
               
                COMPUTE WS-U-VENDIDAS(I) = WS-U-VENDIDAS(I)+ 1
                DISPLAY "SE ACTUALIZÓ EL REGISTRO."
                DISPLAY WS-TABLA(I)
               END-SEARCH
           end-if
           END-PERFORM.

[Marengo97]

❞ @Marengo97, la sugerencia de no repetir campos era porque nombre lo puedes leer de stock-maestro. El problema que veo en la reforma que has hecho es que debes marcar lo que hay que ejecutar despues del else. Eso se hace con end-if. REGISTRAR-VENTA.            PERFORM varying I from 1 by 1 until WS-CONTINUAR                                                 equals "n" or                                                 I > 100            INITIALIZE REG-PRODUCTOS LLAVE WS-VENTA            DISPLAY "INGRESE ID DEL PRODUCTO: " WITH NO ADVANCING            ACCEPT LLAVE-NUMERO-PRODUCTO            MOVE LLAVE-NUMERO-PRODUCTO TO WS-ID-AUX            READ STOCK-MAESTRO                INVALID KEY MOVE "F" TO WS-REG-EXISTE            END-READ            IF WS-REG-EXISTE = "F" THEN                DISPLAY " "                DISPLAY "PRODUCTO FUERA DE STOCK."            ELSE                DISPLAY "INGRESE EL MES ACTUAL: " WITH NO ADVANCING                ACCEPT WS-MES(I)                  MOVE LLAVE-NUMERO-PRODUCTO TO WS-ID-PRODUCTO(I)                MOVE NOMBRE-PRO TO WS-NOMBRE(I)                COMPUTE VALOR-VENTA = FUNCTION NUMVAL(VALOR-VENTA)                MOVE VALOR-VENTA TO WS-PRECIO-BASE(I)               SEARCH ALL WS-TABLA                              AT END MOVE "T" TO WS-REG-EXISTE                WHEN WS-ID-PRODUCTO(I) = WS-AUX-INDICE                                 COMPUTE WS-U-VENDIDAS(I) = WS-U-VENDIDAS(I)+ 1                 DISPLAY "SE ACTUALIZÓ EL REGISTRO."                 DISPLAY WS-TABLA(I)                END-SEARCH            end-if            END-PERFORM.

No habia notado que olvide poner el end-if, pero aun con el end-if sucede lo mismo, no suma las unidades vendidas y el campo de nombre del producto lo muestra en espacios vacios.

- - - Updated - - -

❞ @Marengo97, la sugerencia de no repetir campos era porque nombre lo puedes leer de stock-maestro. El problema que veo en la reforma que has hecho es que debes marcar lo que hay que ejecutar despues del else. Eso se hace con end-if. REGISTRAR-VENTA.            PERFORM varying I from 1 by 1 until WS-CONTINUAR                                                 equals "n" or                                                 I > 100            INITIALIZE REG-PRODUCTOS LLAVE WS-VENTA            DISPLAY "INGRESE ID DEL PRODUCTO: " WITH NO ADVANCING            ACCEPT LLAVE-NUMERO-PRODUCTO            MOVE LLAVE-NUMERO-PRODUCTO TO WS-ID-AUX            READ STOCK-MAESTRO                INVALID KEY MOVE "F" TO WS-REG-EXISTE            END-READ            IF WS-REG-EXISTE = "F" THEN                DISPLAY " "                DISPLAY "PRODUCTO FUERA DE STOCK."            ELSE                DISPLAY "INGRESE EL MES ACTUAL: " WITH NO ADVANCING                ACCEPT WS-MES(I)                  MOVE LLAVE-NUMERO-PRODUCTO TO WS-ID-PRODUCTO(I)                MOVE NOMBRE-PRO TO WS-NOMBRE(I)                COMPUTE VALOR-VENTA = FUNCTION NUMVAL(VALOR-VENTA)                MOVE VALOR-VENTA TO WS-PRECIO-BASE(I)               SEARCH ALL WS-TABLA                              AT END MOVE "T" TO WS-REG-EXISTE                WHEN WS-ID-PRODUCTO(I) = WS-AUX-INDICE                                 COMPUTE WS-U-VENDIDAS(I) = WS-U-VENDIDAS(I)+ 1                 DISPLAY "SE ACTUALIZÓ EL REGISTRO."                 DISPLAY WS-TABLA(I)                END-SEARCH            end-if            END-PERFORM.

Podrias mostrarme como quedaria la FD de reporte-ventas segun lo que me indicas?, no logro ver como es que deberia de quedar.

[JCantero]

@Marengo97, lo de la FD era una sugerencia. Dejalo asi aunque este duplicado y cuando vayas aumentando el nivel lo vemos