Visualizar anexos FB03

[javibest]

Mi trabajo me ha costado , pero ahí esta una posible solucion :

*&---------------------------------------------------------------------*
*& Form visualizar_attached
*&---------------------------------------------------------------------*
* Metodo que muestra un popup con los documetnos adjuntos
*----------------------------------------------------------------------*

FORM visualizar_attached USING p_documento
p_sociedad
p_anio.

DATA : go_manager TYPE REF TO cl_gos_manager,
pp_no_commit TYPE sgs_cmode,
gp_service TYPE sgs_srvnam,
gs_object TYPE borident.

*- code :
gp_service = 'VIEW_ATTA'.
CONCATENATE p_sociedad
p_documento
p_anio
INTO gs_object-objkey.
gs_object-objtype = 'BKPF'.

CREATE OBJECT go_manager
EXPORTING ip_no_commit = pp_no_commit.

CALL METHOD go_manager->start_service_direct
EXPORTING
ip_service = gp_service
is_object = gs_object
* io_container = go_container
EXCEPTIONS
no_object = 1
object_invalid = 2
execution_failed = 3
OTHERS = 4.


ENDFORM. " visualizar_attached