Processo da lima de ABAP

A D V E R T I S E M E N T

---

Downloading ao Excel

TABELAS: USR03, DD02L.
DADOS: ZX030L GOSTAM DE X030L.
OS DADOS COMEÇAM DE ZDFIES OCORREM 0.
INCLUIR A ESTRUTURA DFIES.
FIM DOS DADOS DE ZDFIES.
DADOS: COMEÇAR DE FLDITAB OCORRE 0,
TIPO C DE FLDNAME (11),
FIM DE FLDITAB.
OS DADOS ITABUSR03 COMO USR03 OCORREM 0 COM LINHA DO ENCABEÇAMENTO.
OS DADOS TNAME GOSTAM DE DD02L-TABNAME.
SELECIONAR * DE USR03 NA TABELA ITABUSR03.



TNAME = “USR03”.
EXECUTAR GETFIELEDS.
EXECUTAR SHOW123.

DAR FORMA A GETFIELEDS.

CHAMAR A FUNÇÃO “GET_FIELDTAB”
EXPORTAR
LANGU = SY-LANGU
SOMENTE = ESPAÇO
TABNAME = TNAME
WITHTEXT = “X” QUE IMPORTA
ENCABEÇAMENTO = ZX030L
TABELAS
FIELDTAB = ZDFIES
EXCEÇÕES
INTERNAL_ERROR = 01
NO_TEXTS_FOUND = 02
TABLE_HAS_NO_FIELDS = 03
TABLE_NOT_ACTIV = 04.
CASO SY-SUBRC.
QUANDO 0.
LAÇO EM ZDFIES.
FLDITAB-FLDNAME = ZDFIES-FIELDNAME.
ADICIONAR FLDITAB.
ENDLOOP.
QUANDO OUTROS.
TIPO NÚMERO SY-MSGNO DO ID SY-MSGID DA MENSAGEM DE SY-MSGTY
com SY-SUBRC.
ENDCASE.

ENDFORM.

DAR FORMA A SHOW123.

CHAMAR A FUNÇÃO “EXCEL_OLE_STANDARD_DAT”
EXPORTAR
FILE_NAME = “C:\USR03.XLS”
DATA_SHEET_NAME = DE “LISTA USUÁRIO”
TABELAS
DATA_TAB = ITABUSR03
FIELDNAMES = FLDITAB
EXCEÇÕES
FILE_NOT_EXIST = 1
FILENAME_EXPECTED = 2
COMMUNICATION_ERROR = 3
OLE_OBJECT_METHOD_ERROR = 4
OLE_OBJECT_PROPERTY_ERROR = 5
INVALID_FILENAME = 6
INVALID_PIVOT_FIELDS = 7
DOWNLOAD_PROBLEM = 8
OUTROS = 9.
SE SY-SUBRC <> 0.
TIPO NÚMERO SY-MSGNO DO ID SY-MSGID DA MENSAGEM DE SY-MSGTY
COM SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM.
A D V E R T I S E M E N T

---

Discussion Center Discuss Query Feedback Y! Group Sirfdosti Contact