Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- form Z_AF_ARMAR_TABLA_INFORME .
- DATA: cont_eje TYPE I VALUE 1.
- LOOP AT gv_it_tabla_af.
- AT FIRST.
- " Escribimos los datos comunes del primer registro.
- READ TABLE gv_it_tabla_af index 1.
- PERFORM Z_AF_ESCRIBIR_DATOS_COMUNES.
- ENDAT.
- AT END OF gjahr.
- " Tengo que consultar a qué ejercicio pertenece para saber a que celda va
- " el valor que obtenemos.
- CASE cont_eje.
- WHEN 1.
- " Ejercicio 1
- " Consultamos si es en curso o explotacion.
- IF gv_it_tabla_af-anln1 >= 300000000000 AND
- gv_it_tabla_af-anln1 < 400000000000 .
- MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_explo_1.
- MOVE gv_it_tabla_af-amortizacion TO gv_it_tabla_af_informe-amortiza_explo_1.
- ELSE.
- MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_curso_1.
- ENDIF.
- cont_eje = cont_eje + 1.
- WHEN 2.
- "---------------------------------------------------------------
- " Ejercicio 2
- IF gv_it_tabla_af-anln1 >= 300000000000 AND
- gv_it_tabla_af-anln1 < 400000000000 .
- MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_explo_2.
- MOVE gv_it_tabla_af-amortizacion TO gv_it_tabla_af_informe-amortiza_explo_2.
- ELSE.
- MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_curso_2.
- ENDIF.
- cont_eje = cont_eje + 1.
- " WHEN N: el codigo anterior es el mismo para los n ejercicios.
- ENDCASE.
- ENDAT.
- " Primero calcular los totales de la fila.
- " Agregar la fila en el siguiente paso.
- AT END OF afabe.
- " Agregamos la fila anterior.
- APPEND gv_it_tabla_af_informe.
- " Reteo el contador de ejercicios (lo pongo en 2 porque agrego el 1 aca).
- cont_eje = 2.
- " Escribimos una nueva celda en la tabla del reporte.
- PERFORM Z_AF_ESCRIBIR_DATOS_COMUNES.
- " Ejercicio 1
- " Consultamos si es en curso o explotacion.
- IF gv_it_tabla_af-anln1 >= 300000000000 AND
- gv_it_tabla_af-anln1 < 400000000000 .
- MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_explo_1.
- MOVE gv_it_tabla_af-amortizacion TO gv_it_tabla_af_informe-amortiza_explo_1.
- ELSE.
- MOVE gv_it_tabla_af-inversion TO gv_it_tabla_af_informe-inversion_curso_1.
- ENDIF.
- ENDAT.
- ENDLOOP.
- endform. " Z_AF_ARMAR_TABLA_INFORME
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement