OLÁ,
VER O CÓDIGO DE AMOSTRA,
LOOP AT IT_F16.
SEU MÓDULO DE FUNÇÃO SMARTFORM
CHAMAR A FUNÇÃO FM_NAME
EXPORTANDO
-
ARCHIVE_INDEX =
-
ARCHIVE_INDEX_TAB =
-
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS = W_CPARAM
-
MAIL_APPL_OBJ =
-
MAIL_RECIPIENT =
-
MAIL_SENDER =
OUTPUT_OPTIONS = W_OUTOPTIONS
USER_SETTINGS = ' '
SNAME = SNAME
SFATHER = SFATHER
SDESIG = SDESIG
SPLACE = SPLACE
SDATE = SDATE
YR1 = YR1
TEXT = TXT
IMPORTANDO
JOB_OUTPUT_INFO = T_OTF_FROM_FM
TABELAS
ITF162 = ITF162
EXCEÇÕES
ERRO DE FORMATAÇÃO = 1
ERRO INTERNO = 2
ERRO DE ENVIO = 3
CANCELAMENTO DE USUÁRIO = 4
OUTROS = 5
.
SE SY-SUBRC <> 0.
FIM SE.
T_OTF[] = T_OTF_FROM_FM-OTFDATA[].
CHAMAR A FUNÇÃO 'CONVERT_OTF'
EXPORTANDO
FORMATO = 'PDF'
LARGURA_DE_LINHA_MÁXIMA = 10 "132
IMPORTANDO
TAMANHO_DE_ARQUIVO_BINÁRIO = W_BIN_FILESIZE
TABELAS
OTF = T_OTF
LINHAS = T_PDF_TAB
EXCEÇÕES
ERR_LARGURA_DE_LINHA_MÁXIMA = 1
ERR_FORMATO = 2
ERR_CONV_NÃO_POSSÍVEL = 3
ERR_OTF_MALO = 4
OUTROS = 5
.
SE SY-SUBRC <> 0.
MENSAGEM ID SY-MSGID TIPO SY-MSGTY NÚMERO SY-MSGNO
COM SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
FIM SE.
APAGAR:W_FULL_PATH,EMPXNO.
DESCOMPACTAR ITF16-EMP_NO PARA ITF16-EMP_NO.
EMPXNO = ITF16-EMP_NO.
DESLOCAR EMPXNO À ESQUERDA ELIMINANDO LÍDERES '0'.
CONCATENAR ROTA '\E' EMPXNO '.pdf' EM W_FULL_PATH.
CHAMAR 'GUI_DOWNLOAD'
EXPORTANDO
TAMANHO_DE_ARQUIVO_BINÁRIO = W_BIN_FILESIZE