Meses Con Field-symbols

[budista1]

Hola Eric,

aún no he resuelto esto, te paso una parte del código para que veas lo que quiero ahorrar. El form de enero funciona con el campo wkg001, el de febrero sería con wkg002 y así sucesivamente.
Cómo tendría que hacerlo con field-symbols ?

UN SALUDO Y GRACIAS DE ANTEMANO

Ivo



FORM fecha_mes .

* CLEAR p_mes.

* p_mes = ls_caufv-gltrp+4(2).

* CASE p_mes.
* WHEN c_enero.
* PERFORM enero.

* WHEN c_febrero.
* PERFORM febrero.

* WHEN c_marzo.
* PERFORM marzo.

* WHEN c_abril.
* PERFORM abril.

* WHEN c_mayo.
* PERFORM mayo.

* WHEN c_junio.
* PERFORM junio.

* WHEN c_julio.
* PERFORM julio.

* WHEN c_agosto.
* PERFORM agosto.

* WHEN c_septiembre.
* PERFORM septiembre.

* WHEN c_octubre.
* PERFORM octubre.

* WHEN c_noviembre.
* PERFORM noviembre.

* WHEN c_diciembre.
* PERFORM diciembre.

* WHEN OTHERS.

* ENDCASE.


*FORM enero .
*
*
** * HOURS COST:
* CLEAR v_hour_cost1.
* SELECT SINGLE wkg001 FROM coss INTO v_hour_cost1
* WHERE objnr = ls_caufv-objnr
* AND vrgng = 'RKL'.
*
* IF sy-subrc = 0.
* CLEAR ls_final1-hrr_cst.
* ls_final1-hrr_cst = v_hour_cost1.
* ENDIF.
*
** *Hours planed cost
**A
* CLEAR v_hour_pl_cost1.
* SELECT SINGLE wkg001 FROM coss INTO v_hour_pl_cost1
* WHERE objnr = ls_caufv-objnr
* AND vrgng = 'KPPS'.
*
* IF sy-subrc = 0.
* CLEAR ls_final1-hrp_vst.
*
* ls_final1-hrp_vst = v_hour_pl_cost1.
* ENDIF.
*
*
* CLEAR v_ext_serv_cost1.
**External service cost c
* SELECT SINGLE wkg001 FROM cosp INTO v_ext_serv_cost1
* WHERE objnr = ls_caufv-objnr
* AND vrgng = 'COIN'.
*
* IF sy-subrc = 0.
* CLEAR ls_final1-exr_cst.
*
* ls_final1-exr_cst = v_ext_serv_cost1.
*
* ENDIF.
*
*
**Service planed cost
* CLEAR v_serv_pla_cost1.
* SELECT SINGLE wkg001 FROM cosp INTO v_serv_pla_cost1
* WHERE objnr = ls_caufv-objnr
* AND vrgng = 'KPPP'.
*
* IF sy-subrc = 0.
* CLEAR ls_final1-exp_cst.
*
* ls_final1-exp_cst = v_serv_pla_cost1.
*
* ENDIF.
*
*
*ENDFORM. " ENERO