I wanna now how can i solve a probleme with a multi var colum.
I wanna put 60 vars result in only colum without creat a new spool table.
I post the code below
**&----
**
*& Form f_monta_saida
**&----
**
**----
**
FORM f_monta_saida.
SORT it_zpert_kwh_kw BY anlage.
LOOP AT it_zpert_kwh_kw.
LOOP AT it_zpert_cadas_eanl WHERE anlage = it_zpert_kwh_kw-anlage .
IF s_con IS NOT INITIAL.
MOVE it_zpert_cadas_eanl-branche TO it_relatorio-branche.
MOVE it_zpert_cadas_eanl-istype TO it_relatorio-istype.
MOVE it_zpert_cadas_eanl-ableinh TO it_relatorio-ableinh.
MOVE it_zpert_kwh_kw-anlage TO it_relatorio-anlage.
MOVE it_zpert_kwh_kw-operand TO it_relatorio-operand.
MOVE it_zpert_kwh_kw-billing_period TO it_relatorio-billing_period .
DO p_num TIMES.
lv_sy = sy-index.
CONCATENATE 'it_zpert_kwh_kw-qtd_'lv_sy INTO lv_var.
ASSIGN (lv_var) TO <fs_qtd_zpert>.
CLEAR lv_var.
CONCATENATE 'it_relatorio-qtd_'lv_sy INTO lv_var.
ASSIGN (lv_var) TO <fs_qtd_relat>.
IF <fs_qtd_zpert> IN s_con.
MOVE <fs_qtd_zpert> TO <fs_qtd_relat>.
ENDIF.
ENDDO.
ELSE.
MOVE it_zpert_cadas_eanl-branche TO it_relatorio-branche.
MOVE it_zpert_cadas_eanl-istype TO it_relatorio-istype.
MOVE it_zpert_cadas_eanl-ableinh TO it_relatorio-ableinh.
MOVE-CORRESPONDING it_zpert_kwh_kw TO it_relatorio.
ENDIF.
APPEND it_relatorio.
ENDLOOP.
ENDLOOP.
EXIT.
ENDFORM. "f_monta_saida
**&----
**
*& Form f_monta_fieldcat
**&----
**
**----
**
FORM f_monta_fieldcat.
***
v_ano = it_relatorio-billing_period(4).
v_mes = it_relatorio-billing_period+5(2).
PERFORM f_config_catalogo USING:
1 'IT_RELATORIO' text-001 'ANLAGE' ' ' ' ' ' ' ' ',
2 'IT_RELATORIO' text-005 'ABLEINH' ' ' ' ' ' ' ' ',
3 'IT_RELATORIO' text-002 'OPERAND' ' ' ' ' ' ' ' ',
4 'IT_RELATORIO' text-004 'ISTYPE' ' ' ' ' ' ' ' ',
5 'IT_RELATORIO' text-003 'BRANCHE' ' ' ' ' ' ' ' '.
DO p_num TIMES.
IF sy-index > 1.
v_mes = v_mes - 1.
IF v_mes = 0.
v_mes = 12.
v_ano = v_ano - 1.
ENDIF.
ENDIF.
CONCATENATE v_ano '/' v_mes INTO v_data.
lv_qtd = sy-index.
CONCATENATE 'QTD_' lv_qtd INTO lv_guard.
CONCATENATE 'it_relatorio-qtd_' lv_qtd INTO lv_per.
ASSIGN (lv_per) TO <fs_per>.
IF <fs_per> <> ''.
IF v_ant = 1.
v_ant = 12.
ELSEIF v_ant <> 1.
v_ant = v_ant - 1.
ELSE.
MOVE v_mes TO v_ant.
ENDIF.
v_conta = v_conta + 1.
ENDIF.
IF <fs_per> <> '' AND v_mes = v_ant AND v_conta <= p_num.
vl_tabix = vl_tabix + 1.
PERFORM f_config_catalogo USING:
vl_tabix 'IT_RELATORIO' v_data lv_guard ' ' ' ' ' ' ' '.
ENDIF.
ENDDO.
v_min = 5 + p_num.
IF vl_tabix = 5 OR vl_tabix <> v_min.
MESSAGE 'Nenhum registro encontrado para os parâmetros informados'
TYPE 'S' DISPLAY LIKE 'E'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM.
HOW CAN I GIVE A COLUM MORE THAN ONE VAR
SHOULD I MOVE ALL THE VALUE TO A IT TABLE??
Bluesky
