快乐生活

 PARAMETERS: GK_RUTA DEFAULT TABLES:T552A.
TYPES: OF TURNOS,
    LU LIKE T552A-TPR01,
    MI LIKE T552A-TPR01,
    VI LIKE T552A-TPR01,
    LIKE T552A-TPR01,
OF TURNOS.
*----------------------------------------------------------------------*

* TYPE SOCIO *
BEGIN LIKE PERNR-PERNR,
    REPOSICION LIKE PA0002-VORNA,
    TURNOS END * TYPE SOCIO *
*----------------------------------------------------------------------*
DATA: OF ACCESOS 0,
    SOCIO END * ESTRUCTURA ACCESOS *
*----------------------------------------------------------------------*
OF-SELECTION.
    PERFORM DESCARGA_XML.
OF-SELECTION.
*----------------------------------------------------------------------*

* FORM LLENA_ACCESOS *
REFRESH ACCESOS.
MOVE: TO ACCESOS-SOCIO-NUMERO,
              TO ACCESOS-SOCIO-NOMBRE,
              TO ACCESOS-SOCIO-REPOSICION,
              TO ACCESOS-SOCIO-TURNOS-LU,
              TO ACCESOS-SOCIO-TURNOS-MA,
              TO ACCESOS-SOCIO-TURNOS-MI,
              TO ACCESOS-SOCIO-TURNOS-JU,
              TO ACCESOS-SOCIO-TURNOS-VI,
              TO ACCESOS-SOCIO-TURNOS-SA,
              TO ACCESOS-SOCIO-TURNOS-APPEND ACCESOS.
MOVE: TO ACCESOS-SOCIO-NUMERO,
              TO ACCESOS-SOCIO-NOMBRE,
              TO ACCESOS-SOCIO-REPOSICION,
              TO ACCESOS-SOCIO-TURNOS-LU,
              TO ACCESOS-SOCIO-TURNOS-MA,
              TO ACCESOS-SOCIO-TURNOS-MI,
              TO ACCESOS-SOCIO-TURNOS-JU,
              TO ACCESOS-SOCIO-TURNOS-VI,
              TO ACCESOS-SOCIO-TURNOS-SA,
              TO ACCESOS-SOCIO-TURNOS-APPEND ACCESOS.
* FORM LLENA_ACCESOS *
*----------------------------------------------------------------------*
FORM DESCARGA_XML.
TYPE TO IF_IXML_ELEMENT,
              M_DOCUMENT REF TYPE TO IF_IXML,
              W_STRING TYPE TYPE TYPE STRING,
              IT_XML LIKE OF IT_XML,
              W_RC DATA: XML DATA: RC BEGIN OCCURS LIKE OF XML,
OF XML_TAB.

DEFINITION CREATE( ).
NOT G_IXML INITIAL.
M_DOCUMENT = G_IXML->CREATE_DOCUMENT( ).
NOT M_DOCUMENT INITIAL.
'Converting DATA TO DOM 1:'.
FUNCTION EXPORTING
              NAME = IMPORTING
              DATA_AS_DOM = L_DOM
EXCEPTIONS
              ILLEGAL_NAME = OTHERS = IF SY-SUBRC = WRITE ELSE.
              'Err =',
              SY-SUBRC.
CHECK IS IF W_RC INITIAL.
              'Ok'.
WRITE: ENDIF.
FUNCTION EXPORTING
              DOCUMENT = M_DOCUMENT
SIZE = W_SIZE
EXCEPTIONS
              NO_DOCUMENT = OTHERS = IF SY-SUBRC = WRITE ELSE.
              'Err =',
              SY-SUBRC.
LOOP INTO XML_TAB-D.
              ENDLOOP.
FUNCTION EXPORTING
              BIN_FILESIZE = W_SIZE
              FILENAME = GK_RUTA
              FILETYPE = TABLES
              DATA_TAB = XML_TAB
OTHERS = IF SY-SUBRC <> MESSAGE TYPE SY-MSGTY WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDFORM.