|
Gracias con el apoyo de un compaņero se pudo hacer lo siguiente para dar solucion a este problema
CONSTANTS:
gc_formname_before_line_output TYPE slis_formname
VALUE 'BEFORE_LINE_OUTPUT',
C_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'BEFORE_OUTPUT',
donde
*---------------------------------------------------------------------*
* FORM before_output *
*---------------------------------------------------------------------*
FORM BEFORE_OUTPUT.
IF SY-PLIST NE SPACE.
READ TABLE TI_DATA INDEX W_COUNT.
CONCATENATE TI_DATA-KTOGR TI_DATA-KTGRTX
INTO wclase SEPARATED BY SPACE.
CONCATENATE TI_DATA-KTANSW TI_DATA-TXT50C
INTO wcuenta SEPARATED BY SPACE.
ENDIF.
perform TOP_OF_PAGE1.
*
ENDFORM.
* --------------------------------------------------------------------
* ---------------------------------------------------- ALV END OF PAGE
FORM before_line_output USING rs_lineinfo TYPE slis_lineinfo.
CHECK rs_lineinfo-TABNAME = 'TI_DATA'.
READ TABLE TI_DATA INDEX rs_lineinfo-tabindex.
IF SY-PLIST NE SPACE AND W_FLAG EQ SPACE.
CONCATENATE TI_DATA-KTOGR TI_DATA-KTGRTX
INTO wclaseaux SEPARATED BY SPACE.
W_FLAG = 'X'.
ENDIF.
CONCATENATE TI_DATA-KTOGR TI_DATA-KTGRTX
INTO wclase SEPARATED BY SPACE.
IF wclase <> wclaseaux.
IF wclaseaux NE SPACE.
IF SY-PLIST NE SPACE.
W_COUNT = rs_lineinfo-TABINDEX.
ENDIF.
NEW-PAGE.
ENDIF.
wclaseaux = wclase.
wclase = wclase.
CONCATENATE TI_DATA-KTANSW TI_DATA-TXT50C
INTO wcuenta SEPARATED BY SPACE.
ENDIF.
ENDFORM.
FORM TOP_OF_PAGE1.
DATA: XCONT(4) TYPE C,
WDESC(50) TYPE C,
XDESC(50) TYPE C,
xcu(2) type c,
wsubt(20) type c,
wlon type i,
wpos type i.
data l_folio like p_folio.
READ TABLE TI_T001 INDEX 1.
l_folio = sy-pagno + p_folio.
READ TABLE TI_T001 INDEX 1.
write: 1
'Registro de Activos Fijos - Detalle de los Activos Fijos'.
skip.
write: 1 'Sociedad: ', 11 g_name1,
160 'Registro de Activos Fijos' ,
240 'Folio:',
247 l_folio .
skip.
write: 01 'Ruc:', g_ruc,
160 'Ejercicio ' ,
170 P_GJAHR,
240 'Pagina:',
247 sy-pagno.
skip.
write: 01 'Clase Activo Fijo: ', wclase .
skip.
write: 01 'Cuenta Contable : ', WCUENTA.
ENDFORM. " TOP_OF_PAGE
|