* Eae rapaziada, desculpa a ausência, mas já estou voltando a ativa
* novamente, agora irei começar a passar alguns pré requisitos para
* fazermos o Smartforms passo a passo, simmm..... o tão esperado Smartforms.
* Primeira coisa que vou passar vai ser uma função que retorna o nome
* da função criada pelo seu formulário ( smartforms ou Sapscript ), o nome
* da função que executa seu formulário é criada dinamicamente.
* Se você tiver algum smart ou sapscript, coloque o nome dele no campo
* formname, se não tiver espere um pouquinho que daki a pouco estaremos
* fazendo ums passo a passo de Smartforms. Bons testes.
*
*&---------------------------------------------------------------------*
REPORT z_form_function_name.
data :
vl_fm_name TYPE RS38L_FNAM.
START-OF-SELECTION.
* Executada a função que retorna o nome da função que chama o formulário
PERFORM z_busca_nome_function.
* Executa o function que chama o formulário.
PERFORM z_call_form.
*&---------------------------------------------------------------------*
*& Form z_busca_nome_function
*&---------------------------------------------------------------------*
FORM z_busca_nome_function .
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'Z_NOME_DO_FORMULARIO'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
fm_name = vl_fm_name
* EXCEPTIONS
* NO_FORM = 1
* NO_FUNCTION_MODULE = 2
* OTHERS = 3
.
ENDFORM. " z_busca_nome_function
*&---------------------------------------------------------------------*
*& Form z_call_form
*&---------------------------------------------------------------------*
form z_call_form .
* Uma diquinha pra que você traga todos os parametros corretos é executar
* o smartforms, quando você apertar F8 ele ira para a transação se37 com
* função já escrita no campo do nome da função, copie o nome daquela função,
* volte para esse programa, clique no botão MODELO e e cole o nome da função,
* mas não se esqueça que esse nome de função é temporário, portanto, depois
* de fazer esse procedimento mude o nome da função que você colou pela variavel
* de retorno da função acima conforme eu fiz abaixo.
CALL FUNCTION vl_fm_name
* EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
* EXCEPTIONS
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
* OTHERS = 5
.
endform. " z_call_form
0 Comentários