Tema: logo empresa
Ver Mensaje Individual
  #4  
Viejo 30/04/14, 03:44:13
jsdiaz jsdiaz is offline
Junior Member
 
Fecha de Ingreso: oct 2013
Mensajes: 2
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.
Responder Con Cita