Listo entonces el código que te voy a mostrar lo deberías poner en el Programa (Reporte) que llama a el smartform. (supongo que debes de tener un programa donde este la rutina que llama al smartform )
*Se declara el campo Logo para ser usado*
DATA: logo TYPE tdobname. "Este logo es el que se declaro en el código de inicializacion del smartform
*Este Data es la función que se va exportar desde el smartform
DATA: logo_smt TYPE rs38l_fnam.
*aquí se hace el llamado al smartform (busca esta función en tu reporte)
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZFORM_LOGO' - Nombre del smartform
IMPORTING
fm_name = logo_smt - función que se declara en el DATA
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid
TYPE sy-msgty
NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*creer un case para las dos opciones de sociedad
CASE sociedad. - "Nombre de tu sociedad" (Generalmente creo que el campo o la variable es BUKRS)
WHEN 1100. "-sociedad 1 (1100)
Logo = 'FIRMA_1100'.
*En esta función es donde se pasan los parámetros al smartforms que vas a imprimir (en este caso es solo el campo logo) (supongo que en tu reporte estará esta misma función en esta es solo agregar el campo logo).
CALL FUNCTION logo_smt
EXPORTING
logo = logo
* TABLES
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
WHEN 1000. "-sociedad 2 (1000)
Logo = ' FIRMA_TG'
*En esta función es donde se pasan los parámetros al smartforms que vas a imprimir (en este caso es solo el campo logo) (supongo que en tu reporte estará esta misma función en esta es solo agregar el campo logo).
CALL FUNCTION logo_smt
EXPORTING
logo = logo
* TABLES
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
ENDCASE.
Úlima edición por jsdiaz fecha: 30/04/14 a las 13:56:29.
|