SHARE
TWEET

Untitled

a guest Jun 19th, 2017 48 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. form Z_AF_ARMAR_TABLA_INFORME .
  2.   DATA: cont_eje TYPE I VALUE 1.
  3.  
  4.   LOOP AT gv_it_tabla_af.
  5.     AT FIRST.
  6.       " Escribimos los datos comunes del primer registro.
  7.       READ TABLE gv_it_tabla_af index 1.
  8.       PERFORM Z_AF_ESCRIBIR_DATOS_COMUNES.
  9.     ENDAT.
  10.     AT END OF gjahr.
  11.       " Tengo que consultar a quĂ© ejercicio pertenece para saber a que celda va
  12.       " el valor que obtenemos.
  13.       CASE cont_eje.
  14.         WHEN 1.
  15.           " Ejercicio 1
  16.           " Consultamos si es en curso o explotacion.
  17.           IF gv_it_tabla_af-anln1 >= 300000000000 AND
  18.               gv_it_tabla_af-anln1 < 400000000000 .
  19.             MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_explo_1.
  20.             MOVE gv_it_tabla_af-amortizacion TO gv_it_tabla_af_informe-amortiza_explo_1.
  21.           ELSE.
  22.             MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_curso_1.
  23.           ENDIF.
  24.           cont_eje = cont_eje + 1.
  25.        WHEN 2.
  26.          "---------------------------------------------------------------
  27.          " Ejercicio 2
  28.          IF gv_it_tabla_af-anln1 >= 300000000000 AND
  29.           gv_it_tabla_af-anln1 < 400000000000 .
  30.            MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_explo_2.
  31.            MOVE gv_it_tabla_af-amortizacion TO gv_it_tabla_af_informe-amortiza_explo_2.
  32.          ELSE.
  33.            MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_curso_2.
  34.          ENDIF.
  35.          cont_eje = cont_eje + 1.
  36.        " WHEN N: el codigo anterior es el mismo para los n ejercicios.
  37.       ENDCASE.
  38.     ENDAT.
  39.     " Primero calcular los totales de la fila.
  40.     " Agregar la fila en el siguiente paso.
  41.     AT END OF afabe.
  42.       " Agregamos la fila anterior.
  43.       APPEND gv_it_tabla_af_informe.
  44.       " Reteo el contador de ejercicios (lo pongo en 2 porque agrego el 1 aca).
  45.       cont_eje = 2.
  46.       " Escribimos una nueva celda en la tabla del reporte.
  47.       PERFORM Z_AF_ESCRIBIR_DATOS_COMUNES.
  48.       " Ejercicio 1
  49.       " Consultamos si es en curso o explotacion.
  50.        IF gv_it_tabla_af-anln1 >= 300000000000 AND
  51.         gv_it_tabla_af-anln1 < 400000000000 .
  52.          MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_explo_1.
  53.          MOVE gv_it_tabla_af-amortizacion TO gv_it_tabla_af_informe-amortiza_explo_1.
  54.        ELSE.
  55.          MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_curso_1.
  56.        ENDIF.
  57.       ENDAT.
  58.   ENDLOOP.
  59. endform.                    " Z_AF_ARMAR_TABLA_INFORME
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top