Tweet
Se necesitaba adicionar el campo neto del pedido (VBAK-NETWR) y la denominación de la Ruta (TVROT-BEZEI) en el ALV de la VL10A
1) hacerle un append a la estructura SHP_VL10_ITEM con los 2 campos a adicionar
2) en el include LV50R_VIEWF40 hacer un pto de ampliación inmediatamente despues de FORM FCODE_EXECUTE_PREPARE para llenar esos campos adicionales en la tabla GT_POSTAB
ENHANCEMENT 1 ZZNETWR. "active version
* BEGIN HJQR 13.09.2013 Mostrar Valor Neto del Pedido y Nombre de la Ruta
DATA: lv_netwr TYPE netwr,
lv_bezei TYPE bezei.
FIELD-SYMBOLS: <fs_gt_postab> LIKE line of GT_POSTAB.
LOOP AT GT_POSTAB assigning <fs_gt_postab>.
SELECT SINGLE NETWR FROM VBAK INTO lv_netwr
WHERE VBELN EQ <fs_gt_postab>-vbelv.
SELECT SINGLE BEZEI FROM TVROT INTO lv_bezei
WHERE ROUTE EQ <fs_gt_postab>-route AND
SPRAS EQ SY-LANGU.
<fs_gt_postab>-netwr = lv_netwr.
<fs_gt_postab>-bezei = lv_bezei.
ENDLOOP.
ENDENHANCEMENT.
Espero sea de su ayuda.
1) hacerle un append a la estructura SHP_VL10_ITEM con los 2 campos a adicionar
2) en el include LV50R_VIEWF40 hacer un pto de ampliación inmediatamente despues de FORM FCODE_EXECUTE_PREPARE para llenar esos campos adicionales en la tabla GT_POSTAB
ENHANCEMENT 1 ZZNETWR. "active version
* BEGIN HJQR 13.09.2013 Mostrar Valor Neto del Pedido y Nombre de la Ruta
DATA: lv_netwr TYPE netwr,
lv_bezei TYPE bezei.
FIELD-SYMBOLS: <fs_gt_postab> LIKE line of GT_POSTAB.
LOOP AT GT_POSTAB assigning <fs_gt_postab>.
SELECT SINGLE NETWR FROM VBAK INTO lv_netwr
WHERE VBELN EQ <fs_gt_postab>-vbelv.
SELECT SINGLE BEZEI FROM TVROT INTO lv_bezei
WHERE ROUTE EQ <fs_gt_postab>-route AND
SPRAS EQ SY-LANGU.
<fs_gt_postab>-netwr = lv_netwr.
<fs_gt_postab>-bezei = lv_bezei.
ENDLOOP.
ENDENHANCEMENT.
Espero sea de su ayuda.
Comentario