Inicio > Formularios (Smartforms/Sapscript) > Ejemplo simple de Smartform

Ejemplo simple de Smartform

*&---------------------------------------------------------------------*
*& Report  Z_SMARTFORMS
*&---------------------------------------------------------------------*
REPORT  z_smartforms.
 
* Nombre del modulo de funciones del formulario.
DATA: v_nombre_form TYPE rs38l_fnam.
 
* Tabla interna para los datos.
DATA: ti_facturas TYPE TABLE OF vbrk,
 
* ---------------------------------------------------------------------*
start-of-selection.
* ---------------------------------------------------------------------*
 
* Seleccionamos los datos de la tabla de usuarios
PERFORM cargar_datos.
 
* Llamada al formulario Smartform
PERFORM llamar_smartform.
 
*&---------------------------------------------------------------------*
*&      Form  CARGAR_DATOS
*&---------------------------------------------------------------------*
FORM cargar_datos .
 
 CLEAR   ti_facturas.
 REFRESH ti_facturas.
 
 SELECT *
 FROM vbrk
 INTO TABLE ti_facturas.
 
ENDFORM.                    " CARGAR_DATOS
 
*&---------------------------------------------------------------------*
*&      Form  INVOCAR_SMARTFORM
*&---------------------------------------------------------------------*
FORM llamar_smartform .
 
 IF NOT ti_facturas[] IS INITIAL.
 
* Inicializar el formulario.
 CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
 EXPORTING
 formname           = 'ZFORMULARIO_PRUEBA'
 IMPORTING
 fm_name            = v_nombre_form
 EXCEPTIONS
 no_form            = 1
 no_function_module = 2
 OTHERS             = 3.
 
 IF sy-subrc NE 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 
* Enviar datos al formulario e imprimirlo
 CALL FUNCTION v_nombre_form
 TABLES
 ti_facturas      = ti_facturas
 EXCEPTIONS
 formatting_error = 1
 internal_error   = 2
 send_error       = 3
 user_canceled    = 4
 OTHERS           = 5.
 
 IF sy-subrc NE 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 
 ENDIF.
 
ENDFORM.                    " LLAMAR_SMARTFORM
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: