Table Control

[reijimher]

Buenas Tarde Foro, he creado una Table Control desde una tabla Interna, todo quedo perfecto excepto que la barra de desplazamiento Vertical no funciona, he buscado por todo lado y no encuentro como solucionar el problema, agradecería mucho a quien me pueda ayudar.

Saludos...

[oarranzli]

Hola:

Creo recordar que eso podía pasar cuando no se le indicaba el número de líneas explícitamente en la table control. Quiero decir que el campo LINES de la table control no tiene informado cuántas líneas tiene la table control en el PBO.

Saludos,
Óscar

[apozosanz]

barra

Lo unico que tienes que hacer es, en el PBO, cuando cargas de datos la tabla interna, es poner la siguiente sentencia:

DESCRIBE TABLA IT_TABLA LINES TC_TABLECONTROL-LINES


En it_tabla pones el nombre de la tabla interna.
En tc_tablecontrol pones el nombre del table control

Espero te sirva.
Un saludo.
Alfonso

[apozosanz]

error

Hola, confundi una letra en la respuesta anterior :

Es DESCRIBE TABLE .....

Es que puse describe 'tabla'.
Solo era eso, perdon el fallo.
Chao

[corozco]

Problema con barra desplazamiento vertical

Hola, confundi una letra en la respuesta anterior :

Es DESCRIBE TABLE .....

Es que puse describe 'tabla'.
Solo era eso, perdon el fallo.
Chao

Que tal amigo,

Tengo el mismo problema con la barra de desplazamiento vertical, inlcui esas lines de codigo en mi PBO pero no tiene efecto.

No se mueve la barra de desplazamiento para poder visualizar datos que estan mas abajo del listado del Table Control, falta de adicionar algo mas?
Asi tengo mi PBO:

PROCESS BEFORE OUTPUT.
module frm_select_data .

loop at it_resb with CONTROL material_batch
cursor material_batch-current_line.

MODULE mod_visualizar.
endloop.


DONDE:
MODULE FRM_SELECT_DATA OUTPUT.
data: nombre type maktx,
ope1 type i,
ope2 type i,
ope3 TYPE i,
zgamng type gamng,
canlis type gamng,
result type gamng,
bandera type i,
wteo type CO_GSUZS,
ban type i.

clear it_resb.

bandera = bandera + 1.

if bandera = 1.
SELECT r~posnr r~matnr r~bdmng r~meins r~charg r~aufnr z~MAKTX into CORRESPONDING FIELDS OF table it_resb from resb as r
INNER JOIN makt as z on
r~matnr = z~matnr and z~spras = 'S'
where r~aufnr eq v_AUFNR .
DESCRIBE TABLE it_resb LINES material_batch-current_line.
endif.

if bandera > 1.

SELECT r~posnr r~matnr r~bdmng r~meins r~charg r~aufnr z~MAKTX
into CORRESPONDING FIELDS OF table it_resb from resb as r
INNER JOIN zpp_ba_batches as z on
r~aufnr = z~aufnr and r~posnr = z~posnr
where r~aufnr eq v_AUFNR.
DESCRIBE TABLE it_resb LINES material_batch-current_line .
endif.

loop at it_resb.
select single gamng into zgamng from afko where aufnr = zcaufvd-aufnr.
canlis = it_resb-bdmng / zgamng.
result = canlis * zcaufvd-gamng.
if ZPP_BA_BATCHES-MENGE_BATH > 0.
result = result / ZPP_BA_BATCHES-MENGE_BATH.
endif.
it_resb-bdmng = result .
if sy-tcode = 'COR1'.
INSERT it_resb.
endif.
if sy-tcode = 'COR2' or sy-tcode = 'COR3'.
MODIFY it_resb.
endif.
endloop.
sort it_resb by posnr.
endif.

ban = ban + 1.
loop at it_resb.
if ban = 1.
if sy-tcode = 'COR1' .
it_zbaches-posnr = it_resb-posnr.
it_zbaches-matnr = it_resb-matnr.
it_zbaches-bdmng = it_resb-bdmng .
it_zbaches-MAKTX = it_resb-MAkTX.
it_zbaches-EINHEIT = it_resb-meins.
it_zbaches-charg = it_resb-charg.
it_zbaches-aufnr = it_resb-aufnr.
APPEND it_zbaches.
endif.
if sy-tcode = 'COR2' or sy-tcode = 'COR3'.
it_zbaches-posnr = it_resb-posnr.
it_zbaches-matnr = it_resb-matnr.
it_zbaches-bdmng = it_resb-bdmng.
it_zbaches-MAkTx = it_resb-MAkTX.
it_zbaches-EINHEIT = it_resb-meins.
it_zbaches-charg = it_resb-charg.
it_zbaches-aufnr = it_resb-aufnr.
APPEND it_zbaches.
endif.
endif.
endloop.

REFRESH CONTROL 'MATERIAL_BATCH' from screen '5100'.

ENDMODULE. " FRM_SELECT_DATA OUTPUT


Y DONDE:

MODULE MOD_VISUALIZAR OUTPUT.

clear resb.

move-CORRESPONDING it_resb to resb.
MOVE-CORRESPONDING it_resb to zpp_ba_batches.

ENDMODULE.

De antemano agradezco su ayuda.

[corozco]

Que tal amigo,

Tengo el mismo problema con la barra de desplazamiento vertical, inlcui esas lines de codigo en mi PBO pero no tiene efecto.

No se mueve la barra de desplazamiento para poder visualizar datos que estan mas abajo del listado del Table Control, falta de adicionar algo mas?
Asi tengo mi PBO:

PROCESS BEFORE OUTPUT.
module frm_select_data .

loop at it_resb with CONTROL material_batch
cursor material_batch-current_line.

MODULE mod_visualizar.
endloop.


DONDE:
MODULE FRM_SELECT_DATA OUTPUT.
data: nombre type maktx,
ope1 type i,
ope2 type i,
ope3 TYPE i,
zgamng type gamng,
canlis type gamng,
result type gamng,
bandera type i,
wteo type CO_GSUZS,
ban type i.

clear it_resb.

bandera = bandera + 1.

if bandera = 1.
SELECT r~posnr r~matnr r~bdmng r~meins r~charg r~aufnr z~MAKTX into CORRESPONDING FIELDS OF table it_resb from resb as r
INNER JOIN makt as z on
r~matnr = z~matnr and z~spras = 'S'
where r~aufnr eq v_AUFNR .
DESCRIBE TABLE it_resb LINES material_batch-current_line.
endif.

if bandera > 1.

SELECT r~posnr r~matnr r~bdmng r~meins r~charg r~aufnr z~MAKTX
into CORRESPONDING FIELDS OF table it_resb from resb as r
INNER JOIN zpp_ba_batches as z on
r~aufnr = z~aufnr and r~posnr = z~posnr
where r~aufnr eq v_AUFNR.
DESCRIBE TABLE it_resb LINES material_batch-current_line .
endif.

loop at it_resb.
select single gamng into zgamng from afko where aufnr = zcaufvd-aufnr.
canlis = it_resb-bdmng / zgamng.
result = canlis * zcaufvd-gamng.
if ZPP_BA_BATCHES-MENGE_BATH > 0.
result = result / ZPP_BA_BATCHES-MENGE_BATH.
endif.
it_resb-bdmng = result .
if sy-tcode = 'COR1'.
INSERT it_resb.
endif.
if sy-tcode = 'COR2' or sy-tcode = 'COR3'.
MODIFY it_resb.
endif.
endloop.
sort it_resb by posnr.
endif.

ban = ban + 1.
loop at it_resb.
if ban = 1.
if sy-tcode = 'COR1' .
it_zbaches-posnr = it_resb-posnr.
it_zbaches-matnr = it_resb-matnr.
it_zbaches-bdmng = it_resb-bdmng .
it_zbaches-MAKTX = it_resb-MAkTX.
it_zbaches-EINHEIT = it_resb-meins.
it_zbaches-charg = it_resb-charg.
it_zbaches-aufnr = it_resb-aufnr.
APPEND it_zbaches.
endif.
if sy-tcode = 'COR2' or sy-tcode = 'COR3'.
it_zbaches-posnr = it_resb-posnr.
it_zbaches-matnr = it_resb-matnr.
it_zbaches-bdmng = it_resb-bdmng.
it_zbaches-MAkTx = it_resb-MAkTX.
it_zbaches-EINHEIT = it_resb-meins.
it_zbaches-charg = it_resb-charg.
it_zbaches-aufnr = it_resb-aufnr.
APPEND it_zbaches.
endif.
endif.
endloop.

REFRESH CONTROL 'MATERIAL_BATCH' from screen '5100'.

ENDMODULE. " FRM_SELECT_DATA OUTPUT


Y DONDE:

MODULE MOD_VISUALIZAR OUTPUT.

clear resb.

move-CORRESPONDING it_resb to resb.
MOVE-CORRESPONDING it_resb to zpp_ba_batches.

ENDMODULE.

De antemano agradezco su ayuda.

Solucione el problema.
Estaba utilizando esta sentencia:
REFRESH CONTROL 'MATERIAL_BATCH' from screen '5100'.
En el modulo donde cargo la tabla interna. La elimine y funciona la barra de desplazamiento vertical.

Por si acaso alguien tenga el mismo problema.