Tweet
Buen dia.
Tengo la siguiente necesidad.
Tenemos el modulo de PS y cuando hacemos un pedido atravez de la ME21N decimos para cada material a donde se imputa (elemento pep, centro de coste u activo fijo). Esta informacion necesitamos que salga en el formato impreso que esta en sapscrip. Ahora bien hice una rutina donde revisa por partida a que elemento pep esta imputado y lo guardo en una variable que despues presento en el formato. El problema se presento porque por alguna causa solo presenta 80 caracteres. Existe esta limitante?
Este es el codigo que tengo
En SAPScrip
La funcion donde obtengo los datos
PERFORM F_OBTIENE_TEXTOS_SIMPLES IN PROGRAM Z_SAPSCRPITSFM
USING &V_NAM&
USING &V_OBJ&
USING &V_ID&
USING &V_LEN&
USING &EKKO-ZTERM&
CHANGING &V_F03&
CHANGING &V_F05&
CHANGING &V_F08&
CHANGING &V_F04&
CHANGING &V_DTERM&
CHANGING &V_PROY&
Y esto es lo que muestro para imprimir
Condiciones Comerciales Proy. o Ce.Co: &V_PROY(100)&
Y este es el codigo donde lleno la variable para mostrar los proyectos.
TYPES: BEGIN OF ty_ekpo,
PS_PSP_PNR type ekkn-PS_PSP_PNR,
KOSTL type ekkn-KOSTL,
END OF ty_ekpo.
DATA: it_proy TYPE TABLE OF ty_ekpo WITH HEADER LINE,
lv_proy(11) TYPE c, && Variable para almacenar el codigo
lv_pryc(100) TYPE c. && Variable donde pongo la lista de proyectos.
SELECT ekkn~PS_PSP_PNR KOSTL
INTO TABLE it_proy
FROM ekkn
WHERE EBELN = lv_TDNAME
GROUP BY ekkn~PS_PSP_PNR ekkn~KOSTL.
LOOP AT it_proy.
IF it_proy-PS_PSP_PNR IS NOT INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
EXPORTING
input = it_proy-PS_PSP_PNR
IMPORTING
output = lv_proy.
ELSE.
lv_proy = it_proy-kostl.
ENDIF.
IF lv_pryc IS INITIAL.
CONCATENATE lv_proy lv_pryc INTO lv_pryc.
ELSE.
CONCATENATE lv_proy ',' lv_pryc INTO lv_pryc.
ENDIF.
ENDLOOP.
Y luego asi lo regreso
READ TABLE out_param ASSIGNING <l_fs_out_param> INDEX 6.
IF sy-subrc = 0.
<l_fs_out_param>-value = lv_pryc.
ENDIF.
Alguna idea de porque solo me muestra 80 caracteres, segun la prueba que realizo deberia ser
95 caracteres.
Tengo la siguiente necesidad.
Tenemos el modulo de PS y cuando hacemos un pedido atravez de la ME21N decimos para cada material a donde se imputa (elemento pep, centro de coste u activo fijo). Esta informacion necesitamos que salga en el formato impreso que esta en sapscrip. Ahora bien hice una rutina donde revisa por partida a que elemento pep esta imputado y lo guardo en una variable que despues presento en el formato. El problema se presento porque por alguna causa solo presenta 80 caracteres. Existe esta limitante?
Este es el codigo que tengo
En SAPScrip
La funcion donde obtengo los datos
PERFORM F_OBTIENE_TEXTOS_SIMPLES IN PROGRAM Z_SAPSCRPITSFM
USING &V_NAM&
USING &V_OBJ&
USING &V_ID&
USING &V_LEN&
USING &EKKO-ZTERM&
CHANGING &V_F03&
CHANGING &V_F05&
CHANGING &V_F08&
CHANGING &V_F04&
CHANGING &V_DTERM&
CHANGING &V_PROY&
Y esto es lo que muestro para imprimir
Condiciones Comerciales Proy. o Ce.Co: &V_PROY(100)&
Y este es el codigo donde lleno la variable para mostrar los proyectos.
TYPES: BEGIN OF ty_ekpo,
PS_PSP_PNR type ekkn-PS_PSP_PNR,
KOSTL type ekkn-KOSTL,
END OF ty_ekpo.
DATA: it_proy TYPE TABLE OF ty_ekpo WITH HEADER LINE,
lv_proy(11) TYPE c, && Variable para almacenar el codigo
lv_pryc(100) TYPE c. && Variable donde pongo la lista de proyectos.
SELECT ekkn~PS_PSP_PNR KOSTL
INTO TABLE it_proy
FROM ekkn
WHERE EBELN = lv_TDNAME
GROUP BY ekkn~PS_PSP_PNR ekkn~KOSTL.
LOOP AT it_proy.
IF it_proy-PS_PSP_PNR IS NOT INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
EXPORTING
input = it_proy-PS_PSP_PNR
IMPORTING
output = lv_proy.
ELSE.
lv_proy = it_proy-kostl.
ENDIF.
IF lv_pryc IS INITIAL.
CONCATENATE lv_proy lv_pryc INTO lv_pryc.
ELSE.
CONCATENATE lv_proy ',' lv_pryc INTO lv_pryc.
ENDIF.
ENDLOOP.
Y luego asi lo regreso
READ TABLE out_param ASSIGNING <l_fs_out_param> INDEX 6.
IF sy-subrc = 0.
<l_fs_out_param>-value = lv_pryc.
ENDIF.
Alguna idea de porque solo me muestra 80 caracteres, segun la prueba que realizo deberia ser
95 caracteres.