programa de documento fi

[aaron alfonso]

Hola
necesito ayuda , tengo poco programando y este programa debería mostrarme los campos que ven en alv. pero ya debugie y nada mas no puedo insertar para que me a paresca el reporte lleno

---------------------------------------------------------------------
REPORT ZCONSULTA_DOCFI.
TABLES: BKPF ,BSEG.
DATA:
BEGIN OF ZDOCFI OCCURS 0,
MANDT LIKE BKPF-MANDT,
BUKRS LIKE BKPF-BUKRS,
BELNR LIKE BKPF-BELNR,
GJAHR LIKE BKPF-GJAHR,
BLDAT LIKE BKPF-BLDAT,
BUDAT LIKE BKPF-BUDAT,
XBLNR LIKE BKPF-XBLNR,
BKTXT LIKE BKPF-BKTXT,
BLART LIKE BKPF-BLART,
SGTXT LIKE BSEG-SGTXT,
PRCTR LIKE BSEG-PRCTR,
END OF ZDOCFI,
e_layout TYPE lvc_s_layo,
t_fcat TYPE lvc_t_fcat,
fldtext TYPE char50.


SELECT-OPTIONS:
S_BUKRS FOR BKPF-BUKRS,
S_BLDAT FOR BKPF-BLDAT,
S_BUDAT FOR BKPF-BUDAT,
S_BELNR FOR BKPF-BELNR,
S_GJAHR FOR BKPF-GJAHR,
S_XBLNR FOR BKPF-XBLNR,
S_BKTXT FOR BKPF-BKTXT,
S_BLART FOR BKPF-BLART.

START-OF-SELECTION.
SELECT SINGLE BUKRS BELNR GJAHR BLDAT BUDAT XBLNR BKTXT BLART
INTO (ZDOCFI-BUKRS, ZDOCFI-BELNR, ZDOCFI-GJAHR, ZDOCFI-BLDAT, ZDOCFI-BUDAT, ZDOCFI-XBLNR, ZDOCFI-BKTXT, ZDOCFI-BLART)
FROM BKPF
WHERE BUKRS EQ S_BUKRS
AND BELNR IN S_BELNR
AND GJAHR IN S_GJAHR.

SELECT SINGLE SGTXT PRCTR
INTO (ZDOCFI-SGTXT, ZDOCFI-PRCTR)
FROM BSEG
WHERE BUKRS EQ ZDOCFI-BUKRS
AND BELNR EQ ZDOCFI-BELNR
AND GJAHR EQ ZDOCFI-GJAHR.

PERFORM reporte_alv.
*&--------------------------------------------------------------------*
*&REPORTE_ALV
*&--------------------------------------------------------------------*
FORM reporte_alv.
CHECK NOT ZDOCFI[] IS INITIAL.
PERFORM catalogo_fcat.
e_layout-zebra = 'X'.
e_layout-sel_mode = 'D'.
e_layout-no_rowmove = 'X'.
e_layout-col_opt = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = sy-repid
i_callback_html_top_of_page = 'MY_HTML_TOP_PAGE'
is_layout_lvc = e_layout
it_fieldcat_lvc = t_fcat
TABLES
t_outtab = ZDOCFI
EXCEPTIONS
program_error = 1.

IF SY-TCODE ='ZDOCFI'.
ENDIF.

LOOP AT ZDOCFI.
MOVE:
sy-mandt TO ZDOCFI-MANDT,
BKPF-BUKRS TO ZDOCFI-BUKRS,
BKPF-BELNR TO ZDOCFI-BELNR,
BKPF-GJAHR TO ZDOCFI-GJAHR,
BKPF-BUDAT TO ZDOCFI-BUDAT,
BKPF-BLDAT TO ZDOCFI-BLDAT,
BKPF-XBLNR TO ZDOCFI-XBLNR,
BKPF-BLART TO ZDOCFI-BLART,
BSEG-SGTXT TO ZDOCFI-SGTXT,
BSEG-PRCTR TO ZDOCFI-PRCTR.
*Inserta datos en la tabla Z
INSERT INTO zdocfi VALUES zdocfi.
*Inserta datos en la tabla interna
APPEND ZDOCFI.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*&Form catalogo_fcat
*&---------------------------------------------------------------------*
FORM catalogo_fcat.
PERFORM agrega_campos USING:
'BURKS' 'BURKS' 'BKPF' space space,
'BELNR' 'BELNR' 'BKPF' space space,
'GJAHR' 'GJAHR' 'BKPF' space space,
'BLDAT' 'BLDAT' 'BKPF' space space,
'BUDAT' 'BUDAT' 'BKPF' space space,
'XBLNR' 'XBLNR' 'BKPF' space space,
'BKTXT' 'BKTXT' 'BKPF' space space,
'BLART' 'BLART' 'BKPF' space space,
'SGTXT' 'SGTXT' 'BSEG' space space,
'PRCTR' 'PRCTR' 'BSEG' space space.
ENDFORM. " CATALOGO_FCAT
*&---------------------------------------------------------------------*
*&Agrega_Campos
*&---------------------------------------------------------------------*
FORM agrega_campos USING
value(p1) value(p2) value(p3) value(p4) value(p5).
DATA l_fcat TYPE lvc_s_fcat.
l_fcat-fieldname = p1.
l_fcat-ref_field = p2.
l_fcat-ref_table = p3.
l_fcat-coltext = p4.
l_fcat-inttype = p5.
l_fcat-col_opt = 'X'.
IF p5 NE space.
l_fcat-intlen = 20.
l_fcat-decimals = 2.
l_fcat-decimals_o = 2.
ENDIF.
APPEND l_fcat TO t_fcat.
ENDFORM. " agrega_campos
*&---------------------------------------------------------------------*
*&Form MY_USER_COMMAND
*&---------------------------------------------------------------------*
FORM my_user_command USING p_ucomm TYPE sy-ucomm
p_selfield TYPE slis_selfield.
CASE p_ucomm.
WHEN 'REGR' OR 'SALI'.
p_selfield-exit = abap_true.
ENDCASE.

ENDFORM. " MY_USER_COMMAND