SAPEROS ON LINE

Ahora lo entiendo TODO!

2011-12-01T10:35:00.003+01:00

Muchas veces me he preguntado como puede ser que tantas veces hacer lo más sencillo en SAP sea tan complicado, se tengan que seguir tantos pasos y muchas veces no sepas porqué las cosas se han de hacer con "logica inversa"...
Pues bien, hoy repasando un manual de OOP, he visto la luz:

"friendship is one-sided:
A class granting friendship is not automatically a friend of its friends. If a class
granting friendship wants to access the non-public components of a friend, this
friend must also explicitly grant friendship to it."

O sea, Yo, como programador de SAP, soy amigo de SAP, pero SAP, pasa de mi cara olimpicamente...

¿Alguien sabe donde està el pincho en la SPRO para que SAP sepa que soy su amigo?
Sniff...

Misterios de SAP

2011-07-26T17:00:00.005+02:00

Hola de nuevo,
Hoy me he encontrado con ~~una de esas chorradas que tiene SAP~~ un misterio de SAP...
Creando una dynpro a uno de los campos de texto le he puesto el texto de salida: "Real", y al visualizar la dynpro, he visto que los otros campos salían con la fuente arial y este con la fuente courier...
Después de varias pruebas he acabado por probar de escribir "Real_" (osease, con un espacio detrás) y ya me salía bien...
Misterio misterioso!
Alguien sabe de más "palabras reservadas" como por ejemplo "Real" que sea mejor no usar en dynpros para evitarte quejas de los keyusers?

Saludos!

Saltarte la falta de permisos en SE16n

2011-07-19T13:06:00.002+02:00

en la ultima versión de SAP, aunque tengas los permisos en tipo full como desarollador la SE16n
te la encuentras capada y no puedes ~~meter la zarpa~~ actualizar las tablas de ninguna manera.
La manera de ~~saltarte~~ conseguir estos permisos es la siguiente:
Vamos a la SE16n.
escogemos nuestra tabla y ponemos todos los parametros por los que queremos filtrar.
Le metemos el debuger /h.
Le metemos el &sap_edit.
F8
Se nos abre el debuger.
Vamos a ->Breakpoints -> Crear Breakpoint en -> sentencia.
Le ponemos un breakpoint en "EXIT". aceptamos y le damos al F8
nos saltará el breakpoint y veremos el debuger.
Unas líneas más arriba veremos una senténcia que pone:
if sy-subrc = 0 and not ld_pos is initial.
select single se16n_sap_edit from se16n_edit
into ld_sap_edit
where pos = ld_pos.
if sy-subrc = 0 and ld_sap_edit <> true.
en la primera linea de este código, le hemos de poner un breakpoint manual y darle a gravar.
le damos al f8 y salimos sin poder editar a la pantalla de SE16n.
volvemos a poner el /h y el &SAP_EDIT y volvemos a dar a f8.
cargamos las variables sy-subrc o ld_pos para modificarlas.
en ld_pos (por ejemplo) le ponemos: '0001'.
le damos a F5 dos veces y cuando el programa pasa por el
if sy-subrc = 0 and ld_sap_edit <> true.
cargamos la variable ld_sap_edit para modificar y le cargamos el valor 'X'.
le damos a F8 y voilà! ya tenemos permiso para trastear con los datos de nuestra tabla!

DATOS PARA EJEMPLOS DE SAP

2011-06-30T10:34:00.003+02:00

Seguramente todos conocereis algún ejemplo de código de SAP (ver transacción DWDM) que utiliza el conjunto de tablas de ejemplo de vuelos, reservas, compañías aéreas, etc. El problema es que a veces estas tablas no disponen de datos y es difícil probar qué hacen esos ejemplos. Esto tiene una solución muy fácil, con el report SAPBC_DATA_GENERATOR podemos generar un juego de datos automático para las tablas de ejemplo de SAP.

FUNCION PARA VER UNA FACTURA DE COMPRAS

2011-03-18T10:38:00.002+01:00

A falta de BAPIs sencillas e intuitivas (a menos que alguien me diga lo contrario) la función más fácil para ver una factura de compras con la transacción MIRO mediante es la siguiente: MRM_POSITION_TREATM que cómo véis no es nada intuitiva. Lo mejor es copiar el siguiente código y nos quedamos tan anchos.

data: ls_rbkpv type mrm_rbkpv.

ls_rbkpv-belnr = xbelnr.
ls_rbkpv-gjahr = xgjahr.

call function 'MRM_POSITION_TREATM'
exporting
i_tcode = sy-tcode
i_fcode = 'ITEM'
i_akt_typ = 'A'
i_kzverd = '0'
i_aggr_list_version = ''
changing
x_rbkpv = ls_rbkpv
exceptions
rbdrseg_not_found = 1
invoice_locked = 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.

Saludos!

AVERIGUAR LA LETRA (MAYÚSCULA) SIGUIENTE

2011-01-24T11:43:00.007+01:00

Saludos nobles saperos,
He estado batallando con el código ascii para conseguir pasar una letra a ascii y después averiguar la letra siguiente sumándole n al ascii y pasando el ascii a char... y caca de la vaca... Además, me he encontrado que si trabajas con la 4.6 hace una cosa y si trabajas en versiones siguientes de SAP, hace otra... Mal!
Al final, he descubierto un campo de sistema que casi que te consigue hacerlo sin programar... sy-abcde!
al final el código me ha quedado tal que así:

letra(1) TYPE c,
letra2(1) TYPE c,

DATA:
letra(1) TYPE c VALUE 'A', "la letra de entrada
letra2(1) TYPE c, "la letra de salida
cont1 TYPE i, "contador
cont2 TYPE i. "contador

cont1 = 0.
cont2 = 1.

DO.
IF sy-subrc NE 0.
EXIT.
ELSE.
IF sy-abcde+cont1(1) EQ letra.
letra2 = sy-abcde+cont2.
EXIT.
ELSE.
cont1 = cont1 + 1.
cont2 = cont2 + 1.
ENDIF.
ENDIF.
ENDDO.

así pues, si igualmente queremos averiguar lo mismo pero con minúsculas (o combinado), podemos crearnos una var que contenga por ejemplo (abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ)... o cualquier cadena de carácteres que nuestro bienamado consultor tenga a bien mandarnos averiguar...

Venga pues, saludos y tal!
P.D.: como siempre mis posts tipo chorrada, pero bueno, es lo que tiene ser un dumpero! ;)

NUEVO ANALISIS DE TIEMPO DE EJECUCION

2011-01-18T15:41:00.003+01:00

Post rápido.

Hay una nueva transacción, SAT, que es una nueva versión de la vieja y entrañable SE30. Para más datos:

http://www.sdn.sap.com/irj/scn/weblogs?blog=/pub/wlg/18210%3Futm_source%3Dtwitterfeed%26utm_medium%3Dtwitter%26utm_campaign%3DFeed%253A+SAPNetworkWeblogs+%2528SAP+Network+Weblogs%2529

MESSAGE "AVANZADO"

2010-12-21T09:50:00.002+01:00

Todos conocemos la instrucción MESSAGE, si no la conoces deja este blog y cómprate algún libro del tipo ABAP for dummies... Bueno la cuestión es que hay un par de opciones en esta instrucción que no se utilizan mucho y no todo el mundo conoce.

Casi siempre se utiliza el MESSAGE usando mensajes de una clase de mensajes de la transacción SE91 sin embargo podemos mostrar un mensaje directamente usando el texto de esta forma:

MESSAGE texto TYPE mtype.

Siendo texto un texto de como máximo 300 caracteres y mtype el tipo de mensaje.

Podemos forzar que un mensaje de un tipo se muestre como si fuera de otro añadiendo la opción DISPLAY LIKE mtype, donde mtype es el tipo que debe mostrar. El mensaje se comportará como el tipo original pero mostrará el icono que le decimos en el DISPLAY LIKE. Esto es especialmente útil en mensajes del tipo I, de esos que muestran un popup, ya que sirve para cambiarle el icono por el que nosotros queramos para poder darle un mayor énfasis en el mensaje.

¿DONDE ESTA MI SAPLOGON.INI?

2010-12-07T12:56:00.002+01:00

SAP guarda los datos de las conexiones con los diferentes servidores de SAP en un archivo llamado saplogon.ini, básicamente es lo que se ve cuando arrancas el SAPlogon. Si quieres saber donde se guarda para hacer una copia de seguridad o para llevártelo a otro PC ahora te explico como hacerlo. Piensa que dependiendo del sistema operativo y de la versión estará en un sitio u otro. Vamos al tema:

Ejecuta el SAPlogon, ve a Opciones en el menú, en la versión que tengo yo (720) hay que dale al botón de arriba a la izquierda. Aparece una estructura de árbol a la izquierda, desplegar "Opciones de SAPlogon" y darle a "Ficheros de configuración". Ahora verás que a la derecha aparecen varios datos, busca en la lista de "Ficheros locales cargados" uno que pone "Conexión", ese es. Seguramente en otras versiones el tema cambiará ligeramente, se trata de ir buscando en las opciones a ver donde se define el fichero este.

MENSAJES DE ERROR EN FUNCIONES

2010-09-07T15:28:00.003+02:00

Las funciones tienen un sistema de control de errores basado en excepciones. Sin embargo hay veces que ejecutamos un módulo de funciones y se produce un error generado por una instrucción MESSAGE que no lanza ninguna excepción. En estos casos el módulo de funciones termina pero no vuelve al punto desde donde se llamó sino que vuelve atrás en la jerarquía de llamadas hasta salir del programa.
Para evitar este problema existe un código de excepción especial del sistema, el ERROR_MESSAGE. Si en la llamada a la función le añadimos la excepción ERROR_MESSAGE al producirse un error de tipo E o A el programa vuelve a la llamada de la función con el valor de SY-SUBRC que le hayamos puesto en la llamada. Los mensajes S, I y W son ignorados.
Vamos a poner un ejemplo que no os veo muy convencidos...

He aquí el módulo de funciones (no tiene definida ninguna excepción):

FUNCTION funcion_1.
MESSAGE e001.
ENDFUNCTION

Y aquí la llamada:

PROGRAM programa_1.
CALL FUNCTION 'FUNCION_1'
EXCEPTIONS
error_message = 1
OTHERS = 2.

IF sy-subrc NE 0.
* Tratamiento de errores
ENDIF.

COMO HACER DEBUGGING DE JOBS

2010-09-01T12:45:00.005+02:00

Para poder debugar un job no siempre es posible ejecutar directamente el programa. A parte a veces los programas analizan si están siendo lanzados en fondo u online. Para poder debugarlo en las mismas condiciones que si se estuviera ejecuntado en fondo basta con introducir el OK-CODE "JDBG" desde la transacción se37, habiendo seleccionado el job correspondiente.

Hay otra manera que además sirve para cazar procesos de fondo aunque no vengan por job (Idocs, perform en update-task,...). Cuando el proceso está corriendo es posible ir a la sm50 y allí ir a Programa/Modo -> Programa -> Debugging desde donde se accede al debugging del proceso seleccionado.

TRANSPORTE DE TRADUCCIONES

2010-05-27T13:50:00.004+02:00

Para facilitar la vida de los programadores existe el programa RS_LXE_RECORD_TORDER que permite transportar las traducciones sin tener que conocer los parámetros del catálogo de objetos.

OBTENER LA DIRECCIÓN IP - OTROS PROTOCOLOS

2010-05-27T12:47:00.000+02:00

HOla,

En el anterior post, nuestro compañero Formulario-Man, nos habla de la detección de la IP del terminal desde el que nos conectamos utilizando la clase CL_GUI_FRONTEND_SERVICES. Esto es válido si nos conectamos vía SAP GUI, pero para otros protocolos sería necesario utilizar otras técnicas:

1- Conexiones RFC:

CALL FUNCTION 'RFC_GET_ATTRIBUTES'
IMPORTING
caller_ip = caller_ip
EXCEPTIONS
system_call_not_supported = 1
no_rfc_communication = 2
internal_error = 3
OTHERS = 4.

2 - Conexiones vía HTTP

CALL FUNCTION 'HTTP_GET_CURRENT_SERVER_CB'
IMPORTING
server_cb = i_server
EXCEPTIONS
no_icf_session = 1
OTHERS = 2.

IF sy-subrc <> 0.
RAISE no_http_server.
ELSE.

DATA: l_field TYPE string.

CALL METHOD i_server->request->if_http_entity~get_header_field(
EXPORTING
name = 'x-forwarded-for'
RECEIVING
value = l_field ).

IF l_field IS INITIAL.

c_server_net ?= i_server.
client_ip = c_server_net->c_caller_ip.

else.

client_ip = l_field.

ENDIF.

En el caso de que nuestro programa se pueda llamar desde diferentes protocolos no conseguí encontrar una manera de detectar el protocolo más allá de ir probando (primero RFC, luego HTTP y si no asumimos que es SAP GUI).

OBTENER LA DIRECCIÓN IP

2010-04-27T09:40:00.002+02:00

Hoy toca algo fácil. A veces podemos necesitar obtener la dirección IP del usuario para, por ejemplo, distinguir entre dos usuarios que han entrado con el mismo usuario (sí, hay gente que hace eso! ;-P)

Para obtener la IP podemos utilizar un método de la clase CL_GUI_FRONTEND_SERVICES llamado GET_IP_ADDRESS. Te devuelve la IP formateda con los punticos y todo.

Ejemplo:

DATA: g_ip TYPE apaccip_tp.

g_ip = cl_gui_frontend_services=>get_ip_address( ).

Por cierto, no está de más que le echéis un ojo a la clase CL_GUI_FRONTEND_SERVICES, tiene un montón de métodos útiles relacionados con el frontend.

ERROR AL ARRANCAR EL SCREEN PAINTER GRÁFICO

2010-04-21T16:10:00.000+02:00

Si te da este error: "EU_SCRP_WN32: connection to partner ... broken" no desesperes… Ya lo he hecho yo… hay una nota (1459064) que habla de ello y te dice que la solución es hacer un upgrade del GRAPHICAL SCREEN PAINTER, para ello nos remite a la nota 133903 donde podremos encontrar las instrucciones para hacer el upgrade correspondiente debido a al versión que tengamos. Siguiendo las instrucciones nuestro problema estará resuelto y podremos disfrutar de esas pequeñas cosas que hacen que tu rendimiento en el trabajo baje increíblemente.

PD: A mi me ha pasado esto después de añadir el parche 17 del sapgui 710.

(Enviado en nombre de RaFmaN)

ESTAMOS EN FACEBOOK.

2010-03-23T20:40:00.001+01:00

Te invitamos a seguirnos en FACEBOOK

http://www.facebook.com/pages/SAPEROS-ON-LINE/113109772032955?ref=mf

LINKS INTERESANTES DE ABAP

2010-03-02T11:12:00.002+01:00

Cientos de códigos ABAP interesantes: http://wiki.sdn.sap.com/wiki/display/Snippets/Community+Code+Gallery

Manual de ABAP en castellano online: http://chihuantitos.wikispaces.com/file/list

Gracias a los compañeros Joel Berga y Carmen García por compartir sus conocimientos.

(Enviado en nombre de RaFmaN)

SABER EL STOCK RESERVADO DE CLIENTE

2010-02-26T11:58:00.002+01:00

Sudaremos bastante si queremos saber el stock reservado de cliente , cosa que se puede saber mediante la transacción MMBE marcando el flag “SEL. TAMBIÉN STOCK ESPECIALES”. Ocurre que no he encontrado ninguna función o bapi que me lo retornase de manera sencilla sin muchas historias, si que lo consigues mediante la función MD_STOCK_REQUIREMENTS_LIST_API. Pues bien, hay una tabla la T148K, que guarda el nombre de la tabla donde se guarda dicha información, así sabiendo esto podremos hacer un select a la tabla que nos diga para obtener el stock reservado de cliente o cualquier otro de carácter “especial”.

Saludos desde el vil agujero donde me hospedo.

(Enviado en nombre de RaFmaN)

GESTION DE TEXTOS

2010-02-11T18:31:00.003+01:00

La gestión de textos en SAP se realiza con las siguientes funciones:

* INIT_TEXT: Inicializa las tablas internas.

* READ_TEXT: Lee un texto y lo devuelve en la tabla LINES. Si lo encuentra en memoria lo coge de ahí, si no se va a buscarlo a la BD.

* EDIT_TEXT: Llama al editor de textos de SAP. Si lo tenemos configurado nos aparecerá nuestro <IRONIA> queridísimo Word </IRONIA>.

* SAVE_TEXT: Guarda el texto que hemos modificado.

* DELETE_TEXT: Borra el texto.

Las funciones SAVE_TEXT y DELETE_TEXT tienen el parámetro savemode_direct. Si lo marcamos con X guardará los cambios en la base de datos, si no lo marcamos sólo lo guardará en memoria y estarán ahí hasta que salgamos del programa.

Los textos se guardan en las tablas del sistema STXH (cabecera) y STXL (líneas).

Para crear un nuevo tipo de objeto de texto, para por ejemplo asignárselo a un nuevo documento Z hay que parametrizar un poquito. Para ello tenemos la transacción SE75:

- Entrar en la transacción y marcar la opción Objetos de texto e IDs, luego le damos al botón de modificar.

- Ahora aparecerá una lista con todos los objetos de texto del sistema. Podemos crear uno nuevo o modificar uno existente. No voy a entrar en detalle con los campos que hay porque a) así os dejo que investiguéis un poco y b) no tengo ni puta idea de para qué sirven, siempre me los copio ;P

- También hay un botón que pone IDs de texto, ahí se crean los diferentes tipos de texto para el objeto que hemos creado. Por ejemplo, para el objeto de cabecera de pedidos de compra puedes tener multitud de textos relacionados, como el texto de cabecera, condiciones de entrega, condiciones de pago, modo de transporte, etc...

No he encontrado la forma de meter la descripción de estos IDs de texto en diferentes idiomas de una forma cómoda, así que siempre he tenido que hacerlo entrando a SAP en el idioma que toque y volviendo a editar las descripciones.

Saltarse las autorizaciones del usuario

2010-02-10T21:16:00.003+01:00

Hola,

Un año y pico después de mi última entrada (Debido a que, como saben los que leen este blog, que son los mismo que lo escriben, estoy incomunicado en un zulo bajo tierra) continuamos con nuestra labor evangelizadora en nombre de SAP (amén).

A veces, los requerimientos funcionales son contradictorios:

- Quiero que cierto programa que ejecuta el usuario "automágicamente" me cree pedidos, mueva stock entre centros, regularice stock, si se producen errores borre documentos, se conecte con la Nasa,....

- El usuario no debe tener autorización a hacer nada, no sea que se equivoque.

Como resulta que el primer programa se ejecuta con las autorizaciones del usuario, podemos encontrar múltiples e interesantes problemas. Algunas BAPI's tienen la opción de saltarse la verificación de autorizaciones, pero no todas, ni siempre se utiliza BAPI's

Una manera de solventarlo es crear un destino RFC que apunte al propio sistema y en el destino utilizar un usuario llamémosle RFCADMIN con permisos amplios, a imagen y semejanza del que se suele crear para los jobs, BATCHADMIN.

A partir de aquí, solo queda llamar a la función que nos da los errores de autorización con un call function 'XXXX' destination 'LO QUE TOQUE'.

QED.

TRANSPORTAR QUERIES

2010-02-05T12:32:00.003+01:00

Para transportar queries seguir estos pasos:

- Entrar en la transacción SQ02 y darle al botón del camión.

- Seleccionar el radio button de "Export" y marcar el checkbox "Sobreescritura permitida".

- En los rangos de abajo introducir los objetos que queremos transportar.

- Hay un checkbox de modo test que nos permite ver si meterá en la orden de transporte todos los objetos que queremos antes de ejecutarlo definitivamente, va bien si quieres transportar muchas cosas de golpe.

- Al ejecutar (F8) nos mostrará los objetos seleccionados y la orden de transporte que ha creado (si no es en modo test).

- Transportar la orden a productivo normalmente, SE10 + STMS.

- Volver a ejecutar la SQ02 en productivo marcando "Import"y en "Set de datos en imports" poner la orden de transporte. Si algunas opciones no aparecen (a mi me ha pasado) ejecutar el report RSAQR3TR en vez de la transacción SQ02.

Como dessarrollar tu propio MiniGui *

2009-11-19T16:29:00.013+01:00

Un sistema Minigui, es aquel que usa terminales de mano (RF) para, por ejemplo en el almacén, realizar pickings, movimientos e inventarios… etc…

La dificultad del mismo, estriba en que hay dos tipos de terminales de mano, los de formato estrecho y ancho.

Los terminales estrechos tienen una resolución de pantalla de 16X20 caracteres (alto X ancho). Los terminales anchos muestran 8X40 carácteres.

La manera que tiene SAP de resolver esto es creando una pantalla llamada Dynpro lógica que solo contiene un marco de subscreen y otras dos dynpros de subscreen llamadas físicas oactuales que son las que contienen los campos/botones a usar, una para cada tamaño de terminal. Y SAP, muestra; una u otra según los datos que el usuario tiene asignado en SAP para su terminal y almacén.

Los puntos a resolver son:

Asignar a cada usuario un terminal RF y entrar en SAP los datos de este usuario para su terminal y almacén (un mismo usuario podría tener varios terminales según el almacén en el que trabaje). NORMALMENTE ESTE PUNTO NO TENDREMOS QUE HACERLO YA QUE SE HACE DESDE CONSULTORÍA!
Crear el programa.
Crear las dynpros.
Programar la búsqueda de la pantalla por usuario.
Programar las rutinas del programa en sí.

1- Vamos a LM00 (o SPRO – IMG Referencia SAP – Logistics Execution – Entrada de datos portátil – Gestión de cola por frecuencia radio – Asignar usuario a colas). Ela tabla de actualización que se nos muestra podemos añadir una entrada con los datos del usuario que nos interese.

Y, le asignamos el tamaño de pantalla del terminal de mano que usará.

2-Creamos el programa como un modulpool normal, con sus includes del PBO, el PAI y el FORM.

3- Con dos dynpros. Cada una de estas dynpros será de uno de los dos tamaños (8x40 o 16x20), no importa cual, pero han de ser las dos iguales. Y contendrán solo un marco de subscreen que ocupe toda la pantalla y en “lista de elementos” solo contendrá el ok_code (y claro el nombre del subscreen).

El nombre de estas dynpros será 8NXX (donde NXX será el nombre que queramos, yo uso 81XX para las dynpros 16x20 y 88XX para las dynpros 8x40).

Entonces, crearemos las dynpros “actuales”, que son las que el usuario verá con exactamente los mismos elementos pero con tamaño y distribución diferentes. El nombre de estas dynpros “actuales” será 9NXX (donde NXX será el nombre que queramos, yo uso 91XX para las dynpros 16x20 y 98XX para las dynpros 8x40):

a- Una de 16x20 que contiene los botones de función arriba de todo, distribuidos en dos líneas, y debajo los campos o lo que se necesite.

b- Otra de 8x40 que contiene los botones de función arriba de todo, distribuidos en una línea, y debajo los campos o lo que se necesite.

c- Fijaros que son absolutamente iguales, solo que distribuidas diferente, los nombres de los campos han de ser exactamente iguales ya que tendrán la misma funcionalidad.

d- Estas subscreens, no han de contener el elemento ok_code, ya que se coge del marco de subscreen al que pertenecen.

e- La nomenclatura 8XXX para las dynpros lógicas y 9XXX para las dynpros actuales es la recomendada por SAP. Yo le añado el 8NXX / 9NXX para clarificar aún más las cosas.

4- Volvemos a la se80 para programar la búsqueda de uno u otro tamaño de pantalla según el usuario que ejecute la transacción.

Primero de todo habremos de crearnos estos elementos de datos en nuestro report:

       DATA: BEGIN OF t_lrf_wkqu  OCCURS 0. "
INCLUDE STRUCTURE lrf_wkqu.
DATA: END OF t_lrf_wkqu.
DATA :  v_lgnum LIKE lqua-lgnum,     "Nº de almacén
        ok_code LIKE sy-ucomm,       "Código de   pulsador/evento
v_logicalscreen LIKE sy-dynnr,  "dynpro lógica
v_actualscreen LIKE sy-dynnr,   "dynpro actual
               vc_9101(4) TYPE c VALUE '9101',  "dynpro 9101   16x20 0001
     vc_9102(4) TYPE c VALUE '9102',  "dynpro 9102   16x20 0002
     vc_9801(4) TYPE c VALUE '9801',  "dynpro 9801   8x40 0001
     vc_9802(4) TYPE c VALUE '9802'.  "dynpro 9802 8x40 0002

Los elementos vc_nnnn contendrán el nombre de la dynpro física. Con lo cual tendremos tantas constantes con nombre de dynpro física como dynpros tengamos X 2.

Lo siguiente lo haremos desde el PBO de nuestras dynpros lógicas.

       PROCESS BEFORE OUTPUT.
  MODULE status_0100.
  MODULE pbo8001.
  
  

Creamos dicho PBO (recordad, que ha de ser igual para las dos dynpros físicas de la misma dynpro lógica!)

En “Module PBO8001” introduciremos:

       MODULE pbo8001 OUTPUT.
  v_logicalscreen = sy-dynnr.

  PERFORM chequeo_autoridad. "llamamos a ver si el   usuario tiene autorización para usar esta trans.
  PERFORM datos_de_usuario USING v_logicalscreen
                        CHANGING v_actualscreen.

ENDMODULE.                 " PBO8001    OUTPUT
  
  

Lo que llama a un form donde chequearemos si el usuario tiene autorización para visualizar nuestra transacción.

En CHEQUEO_AUTORIDAD introducimos:

       FORM chequeo_autoridad.
  CALL FUNCTION 'AUTHORITY_CHECK_TCODE'
    EXPORTING
      tcode  = sy-tcode
    EXCEPTIONS
      ok     = 0
      not_ok = 2
      OTHERS = 3.
  IF sy-subrc NE 0.
    MESSAGE s172(00) WITH sy-tcode.
  ENDIF.
ENDFORM.                    " chequeo_autoridad 
  
  

Y en DATOS_DE_USUARIO pondremos:

       FORM datos_de_usuario USING p_v_logicalscreen
                   CHANGING p_v_actualscreen.
  DATA:     lv_mensaje(50).

  CALL FUNCTION 'L_USER_DATA_GET'
    EXPORTING
      i_uname        = sy-uname
    TABLES
      t_xuser        = t_lrf_wkqu
    EXCEPTIONS
      no_entry_found = 1
      OTHERS         = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3   sy-msgv4.
  ELSE.
    LOOP AT t_lrf_wkqu.
      v_lgnum = t_lrf_wkqu-lgnum.

      IF p_v_logicalscreen = 8101. "si   estamos en la primera dynpro
        IF t_lrf_wkqu-devty = '8X40'. "tamaño   grande de pantalla del usuario
          p_v_actualscreen = vc_9801.
        ELSEIF t_lrf_wkqu-devty = '16X20'. "tamaño   estrecho de  pantalla del usuario
          p_v_actualscreen = vc_9101.
        ELSE.
          MESSAGE e001(zm001). "No se ha podido determinar   el tamaño de terminal RF
        ENDIF.

      ELSEIF p_v_logicalscreen = 8102. "si   estamos en la primera dynpro
        IF t_lrf_wkqu-devty = '8X40'.   "tamaño grande de  pantalla del usuario
          p_v_actualscreen = vc_9802.
        ELSEIF t_lrf_wkqu-devty = '16X20'. "tamaño   estrecho de pantalla del usuario
          p_v_actualscreen = vc_9102.
        ELSE.
          MESSAGE e001(zm001). "No se ha podido determinar   el tamaño de terminal RF
        ENDIF.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " datos_de_usuario
  
  

Con lo que habremos obtenido o un mensaje de error o en v_actualscreen hemos guardado el nº de la dynpro física que hemos de usar en el call screen del PBO dejándolo tal y que así:

PROCESS BEFORE OUTPUT.
MODULE status_0100.
MODULE pbo8001.

CALL SUBSCREEN marco_subs_8001 INCLUDING 'ZMIREPORT_0001' v_actualscreen.
*

Con lo que conseguimos llamar a la dynpro lógica y en su subscreen llamaremos a la dynpro física que necesitamos según se ha determinado en datos_de_usuario.

Otra consideración más a tener en cuenta para las dynpros lógicas es que en el pai hemos de poner (como en toda buena subscreen vaya!):

PROCESS AFTER INPUT.
CALL SUBSCREEN marco_ss8001.

Para recoger los datos que recibamos del subscreen y además no hemos de ponerle el user_command ya que lo recogeremos de las dynpros físicas que si que lo incluirán.

Y como conclusión a lo referente a la creación de dynpros es lo siguiente:

Para cada dynpro lógica crearemos un solo user_command que llamaremos desde las dynpros físicas:

PROCESS BEFORE OUTPUT.
module refresh_data.
*
PROCESS AFTER INPUT.
MODULE user_command_screen1.

Y es en este user_command_screen_n donde introduciremos el código usual en un user_command:

MODULE user_command_screen1 INPUT.
ok_code = sy-ucomm.
CASE ok_code.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CANC'.
LEAVE PROGRAM.
WHEN 'CLR'.
PERFORM clear_all_data.
WHEN 'NEXT'.
IF t_lqua[] IS NOT INITIAL.
CLEAR sscc_actual.
CALL SCREEN '8002'.
ENDIF.
WHEN OTHERS.
PERFORM check_readed_ssccc.
ENDCASE.
ENDMODULE. " USER_COMMAND_SCREEN1 INPUT

5- Y solo faltará la programación del programa en sí, y el debugar, y el testear, y el volver a picar código mal especificado desde consultoría y desde el analista, y volver a debugar, y realizar los cambios que al user key se le olvidó de decirnos y volver a debugar e introducir los cambios que al jefe de almacén (y a sus secuaces) se les han ocurrido y volver a debugar y… … …

[1] Un Minigui es un sistema SAP con terminales de mano(RF) . Como estos tienen un status-gui mini pues ya tenemos un minigui!

A Raíz de esta chorrada, en una empresa en la que trabajamos algunos de los saperosonline donde hablábamos muchas veces del minigui; para un proyecto en concreto alguien dijo “-aquí se tiene que montar un minigui” y un gerente que no sabía lo que era, en vez de preguntar, se puso a buscar información por Internet, por el SDN, en todos sitios, y hasta acabó llamando a SAP España, donde conocía a alguien y le preguntó por el Minigui! Como no obtuvo respuesta, al final preguntó y… las risas que nos echamos!

CREAR ESTRUCTURAS DINAMICAMENTE

2009-10-30T12:25:00.002+01:00

En ocasiones ~~veo muertos~~ queremos hacer una estructura en el código pero no sabemos los campos que van a tener, esto va bien, por ejemplo, para hacer un ALV con columnas dinámicas, es decir que pudiera haber 1 o más columnas dependiendo del tipo de ejecución o varias historias indeterminadas. En cualquier caso con este código se podrá crear una estructura dinámicamente con los campos en tiempo de ejecución:

data: l_dyns TYPE REF TO data.

DATA: l_struc TYPE REF TO cl_rs_struc.

FIELD-SYMBOLS: TYPE ANY.

* construyamos la estructura dinamicamente, en este caso centro y articulo

CREATE OBJECT l_struc.

* añadimos los campos que queramos

CALL METHOD l_struc->add_element(

EXPORTING

i_id = 'LS_EST'

i_sconame = 'WERKS'

i_type = 'WERKS_D'

CALL METHOD l_struc->add_element(

EXPORTING

i_id = 'LS_EST'

i_sconame = 'MATNR'

i_type = 'MATNR'

* ahora la creamos

CALL METHOD l_struc->create(

EXPORTING

i_id = 'LS_EST'

i_dynamic = 'X'

RECEIVING

r_r_data = l_dyns

* y aqui tenemos el resultado

ASSIGN l_dyns->* TO .

REDONDEO

2009-10-22T11:52:00.002+02:00

Hola a todos, después de unos meses de estado vegetativo del blog vamos a ver si resucitamos un poquito.

Para empezar suavemente hoy toca un tema sencillito: el redondeo de decimales con ABAP.

En ABAP sólo tenemos funciones básicas de redondeo hacia arriba o hacia abajo:

CEIL(x): Redondea X hacia arriba.

FLOOR(x): Redondea X hacia abajo.

Para hacer el redondeo común (el comercial) podemos usar la función ROUND. También nos sirve para redondear con diferente número de decimales.

Parámetros:

DECIMALS: Número de decimales

INPUT: Número a redondear

SIGN: Tipo de redondeo (+ hacia arriba, - hacia abajo, X redondeo estándar)

PD: Saludos de parte del resto del equipo, que andan los pobres liados en un proyecto sin acceso al blog.

CREAR UN PEDIDO DE VENTAS CONFIGURABLE VIA BAPI

2009-02-26T11:00:00.009+01:00

Para crear un pedido de ventas con artículos configurable (configurable sales order) mediante via BAPI hay que rellenar unas tablas que vienen definidas en la BAPI_SALESORDER_CREATEFROMDAT2 y son aquellas que comienzan de la siguiente manera: ORDER_CFGS_*.

El como rellenar estas tablas hay un ejemplo en la nota OSS 549563 pero de manera más sencilla y para un ejemplo muy sencillo escribo este post. Debido al desconocimiento del tema y la poca información compartida del tema para temas complejos remitios a dicha nota.

El ejemplo que pongo es muy sencillo, se trata de un artículo configurable y en el que pondremos 3 caracteristicas: (sólo pongo el código referente a las tabla de configurables)

* referenciar posición configurable

lt_cfgs_ref-posex = '000010'. <- pos. pedido

lt_cfgs_ref-config_id = '000001'. <- nº de config.

lt_cfgs_ref-root_id = '00000001'. <- id en 2º nivel

APPEND lt_cfgs_ref.

* indicar las caracteristicas

lt_cfgs_value-config_id = '000001'.

lt_cfgs_value-inst_id = '00000001'.

lt_cfgs_value-charc = 'YCARAC1'.

lt_cfgs_value-value = 'xxx'.

APPEND lt_cfgs_value. CLEAR lt_cfgs_value.

lt_cfgs_value-config_id = '000001'.

lt_cfgs_value-inst_id = '00000001'.

lt_cfgs_value-charc = 'YCARAC2'.

lt_cfgs_value-value = 'xxx'.

APPEND lt_cfgs_value. CLEAR lt_cfgs_value.

lt_cfgs_value-config_id = '000001'.

lt_cfgs_value-inst_id = '00000001'.

lt_cfgs_value-charc = 'YCARAC3'.

lt_cfgs_value-value = 'xxx'.

APPEND lt_cfgs_value. CLEAR lt_cfgs_value.

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'

[.....]

order_cfgs_ref = lt_cfgs_ref

order_cfgs_value = lt_cfgs_value.

Notad que para una misma configuración se pueden crear varios perfiles con el identificador del inst_id (como un identificador de segundo nivel).

CARGA DE ASIENTOS CONTABLES ESTÁNDAR

2009-02-10T09:57:00.003+01:00

Existe un programa estándar de carga de asientos contables hecho por la gentecilla de Waldorf que carga en el sistema asientos contables. Dado a que no es fácil del todo hacer este tipo de programas puede que sirva de ayuda o se adapte a vuestras necesidades.

El programa en cuestión es: RFBIBL00

Suerte.

CREAR CHECKBOX EN UN ALV WEBDYNPRO

2009-02-02T15:03:00.007+01:00

De forma muy parecida a cuando hacemos un campo de un ALV editable vamos a hacer que un campo de un ALV Webdynpro sea un checkbox. De hecho como tiene bastante sentido que sea también editable pongo el código fuente de las dos carácteristicas.

* clases de edición de la columna

DATA: lr_input_field TYPE REF TO cl_salv_wd_uie_input_field,

lr_check TYPE REF TO cl_salv_wd_uie_checkbox.

* asignaciones
lr_column_settings ?= l_value.
lr_table_settings ?= l_value.

* obtener la columna que queremos
l_column = lr_column_settings->get_column( 'STATUS' ).

* hacer la columna EDITABLE
CREATE OBJECT lr_input_field
EXPORTING
value_fieldname = 'STATUS'.
l_column->set_cell_editor( lr_input_field ).

* hacer la columna CHECKBOX
CREATE OBJECT lr_check
EXPORTING
checked_fieldname = 'STATUS'.
l_column->set_cell_editor( lr_check ).

* finalmente hacerlo del modo escritura
lr_table_settings->set_read_only( abap_false ).

ENDMETHOD.

EVITAR MENSAJES DE ERROR AL LLAMAR A UNA FUNCION

2009-01-27T18:27:00.005+01:00

A veces podemos encontrarnos con el caso de que tenemos que llamar a una función y al encontrar un fallo ésta en vez de devolvernos una función nos obsequia con un bonito dump o un mensaje de error que no nos ha dejado gestionar a nosotros. Un ejemplo de esto es la función L_TO_CREATE_SINGLE.

Para evitar esta situación sólo hay que ejecutar el CALL FUNCTION con el añadido DESTINATION 'NONE', como si fuera una llamada RFC. Así SAP no muestra los mensajes sino que devuelve una excepción y podemos controlar el error con las variables del systema sy-*.

Este truco también nos sirve para ejecutar este tipo de funciones desde una RFC. Para ello simplemente la encapsulamos dentro de otra función Z y dentro hacemos el CALL FUNCTION con DESTINATION 'NONE'.

SIGNO NEGATIVO A LA IZQUIERDA EN UNA DYNPRO

2009-01-12T18:02:00.003+01:00

Cándidos como son, los usuarios a veces hacen preguntas, truculentas. ¿El ejemplo de hoy es el siguiente. Puede aparecer el signo - a la izquierda del número? La primera pregunta es, para qué? pero bueno, una vez superada la incredulidad si se quiere tener contento al usuario hay varias maneras de hacerlo:

- La más fácil es utilizar un campo de texto, pero esto supone código de conversión numérico a caracter y viceversa.

- Más elegante es utilizar una exit de conversión Z (para crear una podéis consultar aquí) y dentro de ella poner el siguiente código:

CONVERSION_EXIT_ZXXXX_OUTPUT

DATA: CHAR(15) TYPE c.

MOVE INPUT TO CHAR.

CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
CHANGING
value = CHAR.

WRITE CHAR TO output RIGHT-JUSTIFIED.

CONVERSION_EXIT_ZXXXX_INPUT

output = input.

Agur(s)

SABER EL SALDO DE UNA CUENTA DE MAYOR

2008-12-24T12:58:00.003+01:00

Si lo que estás buscando es cómo narices saber el saldo de una cuenta de mayor en un dia determinado la función BAPI_GL_ACC_GETPERIODBALANCES te ayudará bastante, aunque puede que no te ofrezca toda la ayuda que requieras, asi que te la tendrás que elaborar tu mismo.

Esta función devuelve para una sociedad, una cuenta y un año todos los saldos de la cuenta en los diferentes periodos, que habitualmente suelen ser correspondientes con el mes. De esta manera si quiere saber que saldo tenía en la cuenta a final del mes de febrero deberás mirar el campo balance del resultado con el periodo correspondiente.

Pero es posibles que necesites saber el saldo de la cuenta a mitad de un mes, por ejemplo. En este caso deberás saber el saldo de la cuenta al finalizar el mes anteriory mediante los movimientos de la BSIS deberás sumar o restar el valor al dicho saldo hasta llegar al dia requerido.

Bones festes a tothom!

ABRIR TRANSACCIÓN EN MODO NUEVO

2008-12-11T16:28:00.005+01:00

Si queremos abrir una transacción en un nuevo módulo existe el módulo de función TH_CREATE_MODE. También existe la posibilidad de hacer mediante clase CL_RECA_GUI_SERVICES. La verdad es que no lo he probado pero tiene buena pinta....

Visto en A Christmas Collection of Useful Classes donde hay toda una serie de clases más o menos útiles

DATOS DE IMPORTACIÓN

2008-12-11T09:55:00.006+01:00

Si alguna vez has intentado modificar los datos de importación con la función BAPI_PO_CHANGE verás que no es posible, la nota 419838 explica porque:

Furthermore, you cannot change import/export data using the BAPI_PO_CHANGE (due to technical reasons).

Ta claro, ¿No?

Pues nada, con la función EXPIMP_POSTING podrás modificar todos los datos de importación sin ningún problema.

Lo mismo se aplica para BAPI_PO_CREATE1.

CREAR UNA FACTURA DE UNA ENTREGA

2008-12-09T10:27:00.007+01:00

Si estás intentando crear una factura desde una entrega con la función BAPI_BILLINGDOC_CREATEMULTIPLE no te compliques demasiado la vida, solo con rellenar los dos campos que pongo a continuación es suficiente:

billlingdatain-ref_doc = [entrega].

billlingdatain-ref_doc_ca = 'J'.

No le des más vueltas, no tiene sentido.

BREAK POINT POR CÓDIGO A NIVEL DE USUARIO

2008-11-20T18:27:00.004+01:00

Hola a todos nuevamente.

Como todos sabemos el sistema de break points de Sap es como mínimo bastante chapucero , ya que si marcamos un break point de sesión, cuando escribimos o borramos código por encima se nos mueve ya que va a nivel de línea de programa. Esto a menudo lo solventamos poniendo la instrucción BREAK-POINT soble el código del programa, pero esto puede ser peligrosos si nos olvidamos esa instrucción en el programa y una vez transportados le pueda saltar el break-point a un incauto usuario y que se quede medio lelo. para evitar esto podemos unsar la instrucción BREAK seguida de nuestro nombre de usuario, por ejemplo "BREAK nombreusuario", y el programa solo se detendrá si el usuario es el que hemos indicado. Es una tontería pero para el que no lo sepa es muy útil.

¡Un saludo!

LA BAPI BAPI_SALESORDER_CHANGE NO PONE LA CANTIDAD

2008-10-30T10:34:00.005+01:00

Es curioso el comportamiento de la función BAPI_SALESORDER_CHANGE que tiene como misión hacer cambios sobre un pedido de venta cualquiera.

Pero puede ocurrirte que digas que quieres añadir una nueva linea al pedido y se pase por el forro las cantidades que le hayas indicado. Tranquilo, no desesperes, esto tiene solución y no es el suicidio. Seguramente hayas pasado los parámetros "order_item_in(x)" pero no hayas pasado los parámetros "schedule_lines(x)". Este hecho es suficiente motivo para que no se pongan las cantidades indicadas, por lo tanto solo habrá que pasarle a la bapi dichas tablas y problema solucionado.

Que cosas tiene mi SAP.

LANZAR OK_CODE DESDE EVENTO

2008-10-28T17:15:00.002+01:00

Cuando en un dynpro conviven objetos y campos, al lanzar un evento de uno de esos objetos, por ejemplo doble-click, existe el problema de que, al no ejecutarse el PAI, en la implementación de la clase las variables correspondientes a los campos de pantalla no están informadas.
Una solución es ejecutar un OK_CODE desde el evento y recuperar las variables de forma normal en el PAI. Para ello se utiliza el método set_new_ok_code objeto cl_gui_cfw

CALL METHOD cl_gui_cfw=>set_new_ok_code
EXPORTING new_code = 'OK_CODE_A_LANZAR'.

Para que funcione correctamente es necesario declarar la clase:

CLASS cl_gui_cfw DEFINITION LOAD.

E incluir el siguiente código al principio del PAI

DATA: return_code TYPE i.

CALL METHOD cl_gui_cfw=>dispatch
IMPORTING
return_code = return_code.
IF return_code <> cl_gui_cfw=>rc_noevent.
" a control event occured => exit PAI
CLEAR ok_code.
EXIT.
ENDIF.

CARGAR / DESCARGAR DATOS DE UNA TABLA

2008-10-24T11:25:00.004+02:00

Esta vez y sin que sirva de precedente voy a publicar un tema que no es original nuestro. Se trata de un programa que permite cargar y descargar datos de cualquier tabla de SAP desde ficheros de texto separados con tabuladores. Para que nadie se queje de que les robamos el material sólo os voy a poner el link:

http://sapabap.iespana.es/sap/APC/ZAPC0042.HTML

El programa es de Andres Picazo.

Por cierto, aprovecho para decir que si alguna de la información que encontrais en este blog os parece interesante y quereis publicarlo en vuestro propio blog podeis hacerlo, pero si sois tan amables poned alguna referencia a nuestra web, ¡que nos hace ilusión hombre!

MODIFICAR FUNCIÓN DE LA TECLA F1

2008-10-23T11:37:00.003+02:00

A veces tareas tremendamente fáciles se vuelven un dolor de cabeza porque simplemente no sabemos donde está la opción adecuada en los menús. Eso me ha pasado a mi al intentar cambiar la funcionalidad de la tecla F1 en una dynpro para entrada de datos con un terminal de radiofrecuencia. Estos cacharros suelen tener pocas teclas y una de ellas es el F1, pero es de poca utilidad si sólo la podemos utilizar con el botón de ayuda de SAP.
Lo primero que vemos al intentar modificar el status de la interfaz de la dynpro es que el botón de ayuda en la barra de iconos estándar (el interrogante dentro de la pelotita amarilla) está desactivado y no nos deja poner nuestro propio código de función. Además la tecla F1 tampoco aparece e la lista inferior de teclas de función disponibles.
Después de romperme mucho los cuernos he encontrado que la solución es realmente fácil. Sólo hay que ir al menú Utilidades -> Cons.teclas función y nos aparecerá una pantalla con todas las teclas y sus códigos de función asignados y esta vez sí que, et voilà aparece el F1.

CONTROL DE EJECUCIÓN DE JOBS

2008-10-13T10:30:00.003+02:00

A veces es necesario saber si un job se está ejecutando o no, por ejemplo para prevenir que se ejecute n veces y colapse la base de datos. El estatus de un job se guarda en la tabla TBTCO en el campo STATUS. El valor R es activo. Pero esto no es suficiente!!! Es posible que la tabla indique que está activo, pero que el work process se haya cancelado, ya que la actualización no se realiza "on the fly" por ello es necesario preguntarle al kernel (¿?) si el job en el work process está activo. Para ello existe la función nativa

   CALL 'BTC_CALL_KERNEL'
      ID 'FCID' FIELD 16
      ID 'JONA' FIELD jobname
      ID 'JOCT' FIELD i_tbtco-jobcount
      ID 'WPNO' FIELD i_tbtco-wpnumber
      ID 'ACTV' FIELD active.

si active = 0 está activo

BI: PROBLEMA CON CRONOMARCADOR. REPETIR FUENTE DE DATOS

2008-09-18T09:28:00.004+02:00

Cuando se realiza una modificación en R/3 en el extractor, sobre todo si afecta a la estructura de transferencia, al ejecutar la carga desde BW da el siguiente error:

Esto es por que BW no se ha "enterado" de la modicación. Como indica en el texto explicativo es necesario repetir la fuente de datos, cosa que puedes hacer desde INFOFUENTES o desde SISTEMAS FUENTES. Después debes activar la infofuente pero atención!! cuando la actives la pestaña de estructura de transferencia debe estar desplegada, sino no se activa y no sirve (cosas de BW).

UN PAR DE APUNTES SOBRE WS_DELIVERY_UPDATE_2

2008-09-18T09:27:00.004+02:00

Esta funcion (WS_DELIVERY_UPDATE_2) como todo el mundo sabe o debería saber sirve para modificar una entrega pero hay un par de cositas que podemos destacar como detallitos de una función interesante:

- En la tabla VBPOK hay que poner como documento subsiguiente el mismo de la entrega, en el caso de que no haya documento subsiguiente

- Marcar VBPOK-LIANP y poner VBKOK-KOMUE = 1, para que actualice la cantidad de entrega y el picking

- Si queremos hacer la contabilización de salida de mercancías de la entrega marcaremos el campo WBKOK-WABUC.

MOSTRAR ALV COMO EXCEL

2008-07-31T11:10:00.003+02:00

Desde un ALV es posible mostrar los datos en un Excel embebido simplemente pulsando el botón con el dibujito del Excel o con Ctrl+Shift+F7.
En la mayoría de versiones funciona correctamente pero en la versión 2003 (y entiendo que en superiores) sólo muestra una hoja Excel en blanco, sin datos.
Para solucionar este problema hay que cambiar la configuración de seguridad de Excel.
Ir al menú Herramientas -> Macro -> Seguridad, abrir la pestaña Editores de Confianza y marcar la casilla Confiar en el acceso a proyectos de Visual Basic.
Cuando vuelvas a reiniciar el SAPGui ya te debería funcionar.

ESCANEAR CÓDIGO FUENTE ABAP

2008-07-14T13:08:00.002+02:00

¡Hello World!,

Soy nuevo por aquí así que me presento. Me llamo Artur, llevo un par de años y medio trabajando con ABAP y unos meses toqueteando cosas de BW, así que me han invitado a unirme al Blog para compartir truquillos que se me ocurran en ambas materias.

Para empezar me gustaría hablaros del programa RPR_ABAP_SOURCE_SCAN, que nos permite buscar un string en un rango de programas que le indiquemos. Muy útil para encontrar usos para una instrucción o uno de esos "yoestolohehechoenunprogramaperonorecuerdoencual".

¡Saludos a todos!

TRABAJAR CON EL CLIPBOARD (PORTAPAPELES)

2008-06-26T11:39:00.004+02:00

Aunque obsoletas esta dos funciones para recuperar o copiar al portapapeles van de coña.

CLPB_IMPORT
CLPB_EXPORT

Fáciles y sencillas.

HACER EDITABLE UNA CELDA CONCRETA EN UN ALV

2008-06-19T12:04:00.002+02:00

Si queremos hacer una celda editable específicamente en un ALV deberemos tener en cuenta los siguientes conceptos:

1) Deberemos ulitizar la funcion de ALV : "REUSE_ALV_GRID_DISPLAY_LVC".
2) La columna de la celda que queremos editar deberá ser editable en el catálogo.
3) Hay que añadir un campo con una estructura, que realmente es una tabla, a la tabla interna que se le pasa a la funcion. Dicho campo sería del tipo "lvc_t_styl".
4) Debemos aplicar lógica inversa, es decir, en vez de hacer editable una celda, haremos no editable el resto de celdas. Para ello a los registros que queramos tener no editables hay que añadirle un registro a la tabla que se comentaba en el punto anterior cuyo campo STYLE tenga el valor cl_gui_alv_grid=>mc_style_disabled y en el campo FIELDNAME el nombre del campo/columna. Añadiendo esto este campo que en principio seria editable, porque asi se lo hemos dicho en el catálogo, ahora no lo será.
5) Por último, y no por eso menos importante, hay que decirle al layout del ALV que queremos hacer tal cosa, asi que en el campo STYLEFNAME tendremos que asignar el nombre del campo de nuestra tabla interna que contiene la tabla explicado en el punto 3.

Y listo para funcionar...

FORMULARIOS DE WM

2008-06-17T08:52:00.004+02:00

Los formularios de WM (OT, Etiquetas,...) no se gestionan mediante mensajes desde la transacción NACE como la mayoría de formularios de R/3 sino que hay una transacción específica, OMLV "Control de impresión de gestión de almacenes". Además todos los formularios comparten programa de control (?) es el RLVSDR40. Es un report que tiene una pantalla de selección que permite probar los diferentes formularios

FUNCIONES CON FECHAS

2008-06-16T09:29:00.006+02:00

Os pongo unas funciones para cálculo de fechas y para obtener el día de la semana y festivos:

CALCULATE_DATE: A partir de una fecha le dices cuantos días y meses debe añadir o quitar y te calcula la nueva fecha.

RH_GET_DATE_DAYNAME: Le pasas la fecha, el idioma y el calendario (opcional) y te dice que día de la semana es y si es festivo.

DAY_ATTRIBUTES_GET: Lo mismo que la anterior pero le pasas un rango de fechas y te devuelve una tabla con el nombre de los días de la semana y si son festivos.

REPORT CON PESTAÑAS

2008-05-19T17:48:00.005+02:00

Una forma muy simple de tener pestañas (Lengüetas) de selección sin tener que "currarse" una dynpro es tirar de la documentación de ABAP. (Si ... a veces sirve para algo) En el apartado selection-screen está este ejemplo:

REPORT ...
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS: p1 TYPE c LENGTH 10,
p2 TYPE c LENGTH 10,
p3 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: q1 TYPE c LENGTH 10,
q2 TYPE c LENGTH 10,
q3 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.

SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
TAB (20) button1 USER-COMMAND push1 DEFAULT SCREEN 100,
TAB (20) button2 USER-COMMAND push2 DEFAULT SCREEN 200,
END OF BLOCK mytab.
INITIALIZATION.
button1 = 'Selection Screen 1'.
button2 = 'Selection Screen 2'.

TIPOS GENÉRICOS

2008-05-14T12:43:00.007+02:00

No sé si a vosotros pero a mí me da mucha rabia los dumps que salen por diferencia en formatos entre los parámetros que se pasan a las funciones y los que espera. Espera un STRING y casca porque le pasas un CHAR(10), ya que no realiza la conversión, y para evitar eso tienes que usar una variable auxiliar. Para mí un gran descubrimiento fueron los tipos genéricos. Os los describo a continuación:

NUMERIC: Compatible con I, P y F.
CSEQUENCE: Compatible con C y STRING
XSEQUENCE: Compatible con X y XSTRING. (byte mode)
CLIKE: Compatible con C, N, D, T, STRING.
SIMPLE: Compatible con todos los anteriores.

Tampoco es una buena práctica usar siempre tipos genéricos pero para los casos en los que se esperan entradas numéricas o de texto, sin más requisitos, NUMERIC y CLIKE son de una gran ayuda.
Un ejemplo de utilización sería la función "convierte fechas" del post anterior, crear tus propias rutinas de conversión

CREAR TUS PROPIAS RUTINAS DE CONVERSIÓN

2008-05-10T12:45:00.005+02:00

Ante todo la educación, lo primero presentarme. Soy Alejo, nuevo colaborador de Saperos On Line.
Mi primer post es uno que ya publiqué en mi casi difunto miniblog en alejote.com

Mediante ABAP se puede cambiar el formato de una variable mediante muchas formas. Una de ellas es USING EDIT MASK '==CONV' siendo CONV el código de la rutina de conversión a aplicar de 5 caracteres como máximo. Estas son las mismas rutinas que se utilizan en los dominios, por ejemplo en el dominio KUNNR (nº de cliente) la rutina es ALPHA, rutina que llena de ceros el valor de la variable. Con doble click sobre la rutina ALPHA se puede ver que dirige entre otras a dos funciones CONVERSION_EXIT_ALPHA_INPUT y CONVERSION_EXIT_ALPHA_OUTPUT. Estas son las funciones que usa para mostrar las variables de una u otra forma. Cuando usamos USING EDIT MASK '==CONV' se llama a la función CONVERSION_EXIT_CONV_OUTPUT pasándole como parámetros la variable a la que queremos cambiar el formato. Hay una barbaridad de rutinas de conversión nada documentadas. Puedes buscar en la SE37 por CONVERSION_EXIT_*_*PUT.

Bueno, ¿y qué pasa si no encuentro la rutina de conversión que estaba buscando? Pues te puedes crear una. Para ello simplemente te creas una función llamada CONVERSION_EXIT_ZXXXX_OUTPUT con XXXX los 4 caracteres que quieras y los parámetros de entrada y salida como los de cualquier función de conversión del estándar. Lo de la Z no es imprescindible pero me da que es necesario para no perderla en actualizaciones de SAP. Después puedes llamar a tu rutina con USING EDIT MASK '==ZXXXX'.

Por ejemplo aquí tienes un convierte-fechas:

FUNCTION conversion_exit_zfec1_output. *"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" REFERENCE(INPUT) TYPE CLIKE
*" EXPORTING
*" REFERENCE(OUTPUT) TYPE CLIKE
*"-------------------------------------------------------------------
output = input.
IF STRLEN( input ) = 8.
CONCATENATE input+6
input+4(2)
input(4)
INTO output.
ENDIF.

ENDFUNCTION.

EXITS DE SUSTITUCIÓN DE FI

2008-05-07T12:01:00.008+02:00

Crearemos una exit de sustitución de la siguiente manera:

1) Primero iremos a la transacción GCX2 y cambiaremos el programa que sale por defecto y crear nosotros una copia de este, por ejemplo RGGBS000 a ZRGGBS000. De esta manera podremos meter mano cuanto queramos. Evidentemente en el área funcional GBLS deberemos poner el programa copia que hemos creado.

2) Editar el programa. Dentro del programa que hemos hecho copia haremos nuevas exits en la rutina "get_exit_titles " que posteriormente saldrán en un menú. Las nuevas exits pueden tener un parámetro o no. Este parámetro se definirá posteriormente. Los que tengan un parámetros deberán tener el valor "c_exit_param_field" o si no tienen parametro "c_exit_param_none". De paso también haremos los forms abajo pero los dejaremos vacíos de momento. Este proceso requiere mirar un poquito como está hecho por defecto y copiarlo, es muy sencillo.

3) Lo siguiente que deberemos hacer es ejecutar el programa RGUGBR00 que regenerará todo el ~~cacao que hemos montado~~ proceso realizado. Marcar todas las opciones de la pantalla de selección del programa por si las moscas. Pero antes de hacer esto será indispensable ir a la tabla GB01 y quitar la X del campo excluir del registro que interese para que regenere todo sin excluir el campo que queremos modifcar.

4) Posteriormente deberemos ir a la transacción OBBH y hacer doble click en el tipo de sustitución que proceda, en el nodo "susticiones" del paso correspondiente deberemos añadir una exit según el tipo de campo corresponda. Por defecto viene uno que pone "Sólo exit" en el que deberemos poner exit que no tenga parámetros, si es necesario, claro. En la ayuda de búsqueda ya debería salir nuestra exit.

En el caso de que queramos añadir un parámetro deberemos darle al icono que tiene el '+' justo encima de donde se ponen las exits y elegir el parámetro deseado y luego asignarle una exit que tenga el parámetro que coincida.

5) Haciendo doble click accederemos al form de la exit para que se ponga lo deseado.

6) Y para acabar volveremos al inicio de la transacción OBBH y deberemos activa el tema, poniendo un '1' en el campo "grado de activación".

ERROR DE PAGINACION CON CARD_CLASS_READ_CHARACTS

2008-04-30T12:31:00.004+02:00

Si en un loop estás utilizando el módulo de funciones CARD_CLASS_READ_CHARACTS para saber las características de un artículo (realmente una clase), por ejemplo, puede ser que en un momento dado te genere un dump del tipo MEMORY_NO_MORE_PAGING. Esto es que hay demasiadas llamadas a la función y por cada llamada a esta función se hace un EXPORT MEMORY que hace desbordar la paginación del sistema.

Esto ocurre porque internamente se va guardando las clases que se han ido introduciendo para mantener una caché interna y guardarse las clases ya procesadas para ganar tiempo.

Para evitar este error hay un módulo de funciones que inicializa todas las tablas internas y exports hechos por la función y que no haya así desbordamiento de paginación.

Esta función es: CTMS_CONFIGURATION_INITIALIZER

AL EXPORTAR MI ALV A UN FICHERO DESAPARECEN COLUMNAS

2008-04-24T13:03:00.004+02:00

Tranquilo, no desesperes, mantengamos la calma... Pues si, desgraciadamente esto ocurre desesperando al personal en busca del problema y le deberemos echar las culpas al catálogo del ALV.

Veamos pues... Seguramente por pantalla se vea una columna con esos datos que tanto te ha costado conseguir pero al exportarlo a un excel, fichero, etc... te sale la cabecera pero el dato se ~~lo pasa por el forro~~ lo salta, pues seguramente no tengas en el catálogo el campo TABNAME y el FIELDNAME asignado. Asignando estos campos a la tabla interna y al campo de dicha tabla se soluciona el problema.

Estos chicos de Walldorf...

"ACTUALIZACIÓN CANCELADA" si vale, y qué?

2008-04-16T18:08:00.006+02:00

Al grabar documentos, sobre todo al contabilizarlos, a veces la operación termina correctamente, incluso nos devuelve el número de documento creado. La sorpresa viene al aparecer un mensaje en el inbox del sapmail, que estaba con telañas el pobre de lo poco que se usa, semejante a este:

Esto es un error en la actualización que por algún motivo, no me preguntes, no se trata en dialogo sino que queda en el Log de SAP. Para poder consultar este log hay que acceder a la transacción SM13, donde esta accesible con diversos filtros.

NAVEGAR A LA POSICION DE UN DOCUMENTO DE FI

2008-04-15T12:28:00.007+02:00

Normalmente para navegar a cualquier tipo de un documento suele haber alguna que otra función que lo hace, normalmente suelen tener el formato *_DISPLAY.

En el caso de que se quiera navegar a la posicion de un documento de finanzas yo no he sido capaz de encontrar una función que indicándole la sociedad, año, documento y posición te lleve hasta ese punto, como por ejemplo lo hace la transacción FBL1N .

Para ello me la he fabricado yo mismo y la he bautizado ZFI_ITEM_DOCUMENT_DISPLAY. Para ello hacemos lo siguiente:

IMPORTING:
- BURKS "sociedad
- BELNR "documento FI
- GJAHR "año
- BUZEI "posición

No es necesario un EXPORTING, ya que solo navega.

En los datos globales va lo siguiente:

DATA: BEGIN OF buztab OCCURS 30,
bukrs LIKE bseg-bukrs,
belnr LIKE bseg-belnr,
gjahr LIKE bseg-gjahr,
buzei LIKE bseg-buzei,
koart LIKE bseg-koart,
umskz LIKE bseg-umskz,
bschl LIKE bseg-bschl,
bstat LIKE bkpf-bstat,
mwart LIKE bseg-mwart,
mwskz LIKE skb1-mwskz,
flaen(1) TYPE c, " X = Posten geaendert
END OF buztab.

DATA: BEGIN OF new_doc,
bukrs LIKE bkpf-bukrs,
belnr LIKE bkpf-belnr,
gjahr LIKE bkpf-gjahr,
bvorg LIKE bkpf-bvorg,
END OF new_doc.

DATA: tcode LIKE sy-tcode,
x_nochange(1) TYPE c,
ld_aktyp LIKE t020-aktyp,
buztab-zeile LIKE sy-tabix,
x_commit(1) TYPE c,
x_nextl(1) TYPE c.

Mientras que el código es muy sencillo y es el siguiente:

REFRESH buztab.
buztab-bukrs = bukrs.
buztab-belnr = belnr.
buztab-gjahr = gjahr.
buztab-buzei = buzei.
APPEND buztab.
CLEAR buztab.

buztab-zeile = 1.
tcode = 'FBL1'.

CALL DIALOG 'RF_ZEILEN_ANZEIGE'
EXPORTING
buztab
buztab-zeile
tcode FROM tcode
status-detail FROM space
x_nochange
aktyp FROM ld_aktyp
IMPORTING
buztab
buztabi-index TO buztab-zeile
x_nextl
new_doc
t020-aktyp TO ld_aktyp
x_commit.

Y ya tenemos nuestra función de navegación lista para funcionar...

ACTUALIZACION: Alejo nos muestra una manera ~~bastante~~ muchísimo más sencilla, (donde va a parar) de hacer todo este proceso. Gracias!!!

MODIFICAR TABLAS, CUALQUIER TABLA

2008-04-10T09:40:00.002+02:00

Siguiendo en nuestro afan por ser un poco más terroristas cada día hoy toca la se16n. Es conocida de casi todos pero, por si queda algún despistado, esta transacción es similar a la se16 pero con otro formato y visualización, hasta aquí todo normal. Pero si, en la pantalla de selección, introducimos en el campo de comando &sap_edit, al ejecutar la consulta podremos modificar todos los campos de la tabla. Fácil.

CAMBIO SIGUIENTE Nº ORDEN DE TRANSPORTE

2008-04-10T09:13:00.005+02:00

Vamos a seguir con el tema de los transportes. Cuando se hace una copia homogenea de una máquina (por ejemplo planchar desarrollo con productivo) a veces no se hace todo a maquina parada sino que el nuevo desarrollo se restaura de una copia de productivo de hace unos días. En ese caso es necesario transportar las ordenes de la cola de productivos posteriores a esa copia. Pero con eso no es suficiente, también es necesario cambiar el nº de la siguiente orden de transporte, si no asignará números que ya están creados. Para ello hay que modificar la tabla E070L (con la se16n por ejemplo). Allí debe existir un único registro con 2 campos TRKORR y el número siguiente orden. Basta con cambiar el número y voilà

TRANSPORTES NO HABITUALES

2008-04-08T12:08:00.002+02:00

A veces hay que transportar ciertos objetos que no son demasiado habituales incluirlos en una orden y no encontramos la manera y nos produce un pequeño dolor de cabeza. He aquí algunos programas para ello:

Para transportar...
Variantes de report: programa RSTRANSP
Objetos de textos (so10): programa RSTXTRAN

Si alguien sabe alguno más que lo diga...

SABER EL MODULO DE FUNCIONES DE UN SMARTFORM

2008-03-18T10:48:00.005+01:00

No siempre dos sistemas tienen el mismo módulo de funciones para un mismo smartform, para ellos existe una función que pasándole el nombre del smartform te devuelve el nombre. Así, con lo que te ha devuelto se debe hacer el CALL FUNCTION.

El módulo de funciones es: SSF_FUNCTION_MODULE_NAME.

Ejemplo:

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZMI_SMARTFORM'
IMPORTING
fm_name = l_funcion
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.

IF sy-subrc = 0.

* llamar al smartform
CALL FUNCTION l_funcion
EXPORTING
control_parameters = ls_conpar
output_options = ls_output
user_settings = ' '
header = ls_header
TABLES
items = lt_items
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.

ENDIF.

COMO SABER SI EXISTE UN CAMPO EN UNA TABLA

2008-03-12T14:59:00.003+01:00

Hace un tiempo me toco hacer un programa que revisaba las tablas de punteros e informaba de las modificaciones pendientes de envío. Uno de los campos que tenía que mostrar era el artículo y el precio de la modificación, para lo cual necesitaba saber que artículo se había modificado y el valor de la condición, lo que obligaba a revisar las tablas Axxx. Para que el programa funcionase debía tener todas las tablas Axxx definidas con TABLES en el programa, lo cual queda bastante feo.

Ejemplo:

TABLES: a000, a001, a002, a003, a004, a005, a006, a007, a008, a009, a010
, a011, a012, a013, a014, a015, a016, a017, a018, a019, a020, a021, a022

.... , a399, a900, a901.
* Y sigue ...
* Asignar valor para comprobar si existe.
FIELD-SYMBOLS <fs>.

name = tabla. name+4 = '-MATNR'.
ASSIGN TABLE FIELD (name) TO <fs>.
IF ( <fs> IS ASSIGNED ).
SELECT SINGLE matnr INTO <p>-matnr FROM (tabla)

Sin TABLES el resultado del assign podía ser erroneo. A parte de lo que afea el código "Ya lo he dicho, ¿No?" cada vez que un consultor decidía que se necesitaba una tabla A9xx nueva el programa dejaba de funcionar.

La solución que encontré, que además es mucho más elegante, es:

DATA l_reg TYPE REF TO data.
FIELD-SYMBOLS : <struct> .

* Crea un registro con la información de como es la tabla.
CREATE DATA l_reg TYPE (tabla).
* Asignamos la estructura para poder consultarla

ASSIGN l_reg->* TO <struct>.

* Preguntar si existe el componente MATNR
ASSIGN COMPONENT 'MATNR' OF STRUCTURE <struct> TO <fs>.
IF ( <fs> IS ASSIGNED ) .
Y de esta forma nos podemos olvidar de definir y conocer previamente que tablas se usarán.

LONGITUD CLASE DE MENSAJE

2008-03-12T12:51:00.003+01:00

Si alguna vez usáis la función BALW_BAPIRETURN_GET, ojo a la longitud de la clase de mensaje. Esta función solo hace caso de los 2 primeros caracteres, como reza su código
...
* process field return-code
* only the first 2 characters of message-id are usable
if cl+2(18) co ' '.
bapireturn-code = cl.
bapireturn-code+2(3) = number.
else.
raise only_2_char_for_message_id.
...

CONVERTIR CANTIDADES FIJAS (KGS, METROS...)

2008-03-10T13:02:00.005+01:00

Nuestro colaborador, compañero y mejor persona Pep del Viso, aunque vago para participar en estos menesteres me dice que para convertir cantidades en unidades de medidas constantes, por ejemplo kilos (siempre son 1000 gramos), hay una función que lo hace de coña.

Dicha función es: CONVERSION_FACTOR_GET.

¿Que es una tonteria? ¿Que puedes dividir o multiplicar por 1000? Pues mire ustez, sí. Pero es más cómodo que hacerlo y te evitas errores tontos. ¿Y para pasar de yardas a metros? ¿Y de libras a onzas? ¿Te sabes el factor de conversión? ¿Si?

Gentileza de Pep del Viso.

CONTROLAR ACCIONES USUARIO EN ALV SIN PF-STATUS

2008-03-06T17:49:00.004+01:00

La función REUSE_ALV_GRID_DISPLAY permite que puedas meter mano a las funcionalidad de los botones sin necesidad de hacer un SET PF-STATUS propio. Me explico, imaginate que necesitas saber si el usuario va a salir del listado ALV para darle un mensaje de advertencia e informar que no ha grabado datos.

La manera más fácil de controlar esto es hacer un pf-status propio y con el user-command controlar si va a salir o no.

Pero si queremos integrarnos con SAP os propongo la siguiente forma, para los disconformes y amantes de lo que nos ofrece el ALV (¿?).

Hay que pasarle a la función REUSE_ALV_GRID_DISPLAY el parámetro IT_EVENT_EXIT en el que deberemos pasarle una tabla con el comando del status en el que te quieres meter e indicarle con una X si lo quieres que haga tu acción antes o después de la acción para la que está destinado ese botón. (o antes o después de los dolores)

Una vez hecho esto, en nuestro USER_COMMAND deberemos controlar que si ha pulsado lo que buscas haga lo que tu quieras.

Otro dia más...

SIMPÁTICA CALCULADORA

2008-02-28T10:17:00.013+01:00

Genial esta función que te muestra una calculadora: FITRV_CALCULATOR

... y no hay que hacer nada!!! :D

CONVERTIR UN STRING EN UN XSTRING

2008-02-28T09:56:00.002+01:00

Para convertir un string en un xstring, que por necesidades varias puede ocurrir hay que recurrir a esta paja ment... ejem... a este fragmento de código:

DATA: CONVERTER TYPE REF TO CL_ABAP_CONV_OUT_CE.

*-- Convert
CONVERTER = CL_ABAP_CONV_OUT_CE=>CREATE( ENCODING = 'DEFAULT' ).
CONVERTER->RESET( ).
CALL METHOD CONVERTER->WRITE
EXPORTING
DATA = sresul.
resul = CONVERTER->GET_BUFFER( ).

QUITAR ACENTOS

2008-02-25T13:44:00.003+01:00

Si necesitas quitar los aceptos de un texto puedes utilizar la función
"SCP_REPLACE_STRANGE_CHARS".

visto en sap abap en castellano

EL LAYOUT DEL ALV NO SE VISUALIZA COMO LO HE GRABADO

2008-02-07T09:41:00.000+01:00

¿Estas haciendo un layout para subtotalizar por un campo de texto hecho por ti de una tabla interna? Lo grabas y pasa una cosa extraña... ¿Solo funciona a veces? ¿Hace cosas extrañas?

Muchas veces haces un campo concatenado para poner el texto que quieras y lo muestras en una columna de una ALV. Luego haces totales por un campo numérico y subtotales por el campo concatenado que has creado. Hasta el momento todo correcto... Pero luego cambiar el layout y chás!!! No se ve como lo has creado. Esto se debe a que tu campo no tiene un tipo predefinido.

Ejemplo:

De inicio tenemos esto....

data: begin of gt_tabla occurs 0,
concat(80),
precio type netpr,
end of gt_tabla.

Para solucionarlo deberiamos hacer lo siguiente:
-> Buscar o crear un elemento de datos de 80 caracteres.
-> En el catalogo hacer:
1) un ref_tabname a una tabla que esté incluido este elemento de datos,
2) un ref_tabfieldname al campo de la tabla que se ha indicado en el ref_tabname,
3) un fieldname al campo de la tabla de la concatenación, en nuestro caso CONCAT.

Una vez hecho esto puedes ejecutar tranquilamente tu layout que funcionará correctamente.

PROBLEMAS CON LAS FÓRMULAS DE LA VOFM

2008-02-06T11:41:00.000+01:00

A veces, al crear un fórmula y transportarla, el programa marco (ej RV64ANNN) no se transporta por lo que la formula está, a todos los efectos, desactivada. Para solucionar esto puede ejecutar el programa RV80HGEN.

Más información aquí (PDF).

MOSTRAR EL NOMBRE DE UNA TABLA

2008-01-31T16:32:00.000+01:00

En ocasiones nos interesa mostrar el nombre de una tabla de BBDD de la cual hemos recogido un dato...

Por ejemplo si hemos de recoger una condición de descuento o de precio, puede ser que nos pidan de mostrar el nombre de la tabla donde lo hemos recogido para así poder referenciar en una dynpro que significa este valor. (Las condiciones que afectan al precio, según donde se han recogido afectan por ejemplo al articulo por proveedor, al articulo por proveedor/canal de distribución, al articulo por el volumen de este...).

Osea, para recoger el nombre de la tabla, iremos a la tabla ‘dd02vv’ donde filtraremos por el nombre (el que queremos recoger no!!!! El nombre por el cual es conocida generalmente (MARA, T024, EINA...)) de nuestra tabla y por el idioma.

SELECT SINGLE ddtext
FROM dd02vv
INTO g_nomtab_tarifa
WHERE tabname = 'A044'
AND ddlanguage = sy-langu.

MI PROGRAMA NO SABE DIVIDIR!

2008-01-18T23:24:00.000+01:00

Igual os ha pasado alguna vez que al realizar un cálculo matemático con números que contienen decimales el resultado es imprevisto. Os pongo un ejemplo:

data: d_var1 type p decimals 2,
d_var2 type p decimals 2,
d_resultat type p decimals 2.

d_var1 = '200.00'.
d_var2 = '10.00'.

d_resultat = d_var1 / d_var2.

El resultado esperado es d_resultat = '20.00'. Pues hay otro resultado posible, y es d_resultat = '0.20'. WTF! . No es un error del compilador, ni es el día de los santos inocentes. Lo más probable es que no tengas marcado en los atributos de programa el flag de cálculo de coma fija.

Esto es especialmente importante si el programa es estándar (Por ejemplo al realizar un formula del esquema de cálculo). Como nunca trabajamos con el programa superior, esto no es evidente.

A mi la pregunta que realmente me intriga es ¿Para que sirve desmarcar este flag? O sea es evidente que es para no tener en cuenta los decimales al hacer los cálculos, pero para que?

Se aceptan sugerencias. Algunas posibilidades son:

- para perder varias horas de tu vida buscando la razón.
- para poner nervioso a todo el mundo el día de un arranque.
- Fue el resultado de una apuesta entre dos programadores de Walldorf en 1992.
- Es una herencia de R/2. No queda nadie vivo que sepa la razón de por qué era así en R/2.
- Todas las anteriores.

LEER UN FICHERO TXT CON TABULADORES

2008-01-14T11:52:00.001+01:00

Cuando se quiera leer un fichero del tipo txt tabulado la función GUI_UPLOAD tiene un parámetro para tal efecto: has_file_separator. Marcando este parámetro de la función a 'X' devuelve correctamente cada campo tabulado del fichero en los campos de la tabla interna que se ha puesto en la recepción de la susodicha función.

En el caso de que no se marcara este parámetro sucederá que te devolverá el registro del fichero como un churro de carácteres donde cada campo estará separado por # aunque no lo entederá como carácter si tu intención es hacer un split sobre el string devuelto.

IMPRESIÓN DE TEXTOS EN VERTICAL CON SAPSCRIPT

2008-01-09T18:41:00.000+01:00

Muy util para, por ejemplo, al imprimir un formulario, que nos escriba la linea del registro mercantil en un lateral de la hoja en formato vertical.

Preliminares.
Para poder imprimir textos en vertical con SAPSCRIPT, primero de todo necesitaremos privilegios de administrador o Sap_all.

· Nos vamos a la transacción SPAD
· En: [dispositivos de salida], le daremos a (visualizar).
· y una vez dentro le daremos al icono de modificar con lo que nos aparecen todas las opciones, entre ellas, nuevo y creación con modelo.
· Crearemos un nuevo dispositivo ( o con modelo copiando el dispositivo LOCL a ZLOCL.
· volveremos al inicio de la transacción y activaremos "GESTIÓN TOTAL" y clickaremos en la pestaña "Tp. dispos." (tipos de dispositivos).
· Le daremos a (visualizar) en [Print controls] y una vez dentro en modificar ( ), y crear un nuevo print control.
· Crearemos un PrintControl que llamaremos (P.ej.:) ZM100. y le daremos una definición.
· Volvemos a SPAD/Tp.dispos. y en [Tipos de dispositivos] le daremos a (Visualizar). seleccionamos (P.ej.:) HPLJ4 y le damos doble-click. Le damos ahora a la pestaña (Print Controls).
Seleccionamos uno cualquiera de los print-controls y le damos a copiar o creamos una linea nueva .
*** Según especificaciones del driver de la impresora, los comandos de impresión varian, pero podemos afirmar, que casi casi los drivers HP son un estandard, con lo cual si conocemos sus ordenes de impresión, sus comandos, casi seguramente podremos usarlos con cualquier impresora del sistema (o al menos usarlos con pocas variaciones)
· Para el caso que nos interesa, en el apartado Nom. (nombre, introduciremos el nombre del Print Control que hemos creado en el punto 7 (ZM100).
· En (String de control) introduciremos lo siguiente:
\e&a90P (con la barra)
Lo que indica a la impresora que rote la pagina 90º (en el sentido de las agujas del reloj)
· Repetiremos esto mismo para crear otro print-control que llamaremos ZM110 y que tendrá un String de control de valor [\e&aP]. que le da el valor original al sentido de impresión.

En resumidas cuentas de lo que se trata es de engañar a la impresora para que a mitad de impresión, gire la hoja, imprima el texto y vuelva a girar la hoja a la orientacion original.

AÑO NUEVO, COLABORADORES NUEVOS

2008-01-02T11:08:00.000+01:00

¿Quieres participar en el blog? ¿Sabes cositas de ABAP y SAP que no son muy comunes? Escribe un mail a rafman.rfn@gmail.com contándonos brevemente quien eres y que experiencia tienes en el mundo SAP y si lo vemos conveniente serás un colaborador más.

Hagamos grande este blog entre todos.

2 Condiciones previas:
- Añadir al blog cosas que sean poco comunes e interesantes
- Respetar a los demás colaboradores y formatos

Esperamos tu participación!

COMO TRANSFERIR EL USUARIO SAP A UNA BSP LOCAL

2007-12-04T16:53:00.001+01:00

OPCION 1. SINGLE SIGN ON.
Es posible transferir la autentificación de un usuario desde SAPGUI a una BSP mediante la cookie de SSO (Single Sign On). Esto en palabras más llanas quiere decir que se puede llamar a una web generada con una BSP desde SAPGUI sin tener que volver a introducir el usuario y contraseña.
1. Lo primero que debemos hacer es activar los tickets SSO de acceso para SAP:
- Entrar en la transacción RZ10, seleccionar el perfil deseado y entrar en modo de modificación y actualización ampliada. Una vez dentro buscaremos los parámetros siguientes y les asignaremos nuevos valores:
login/create_sso2_ticket = 1 -> Si el ticket SSO incluye certificado
login/create_sso2_ticket = 2 -> Si el ticket SSO no incluye certificado (si tienes dudas pon este)
login/accept_sso2_ticket = 1
Si los parámetros no existen los crearemos.
- Desde la transacción SICF activar el servicio /sap/public/myssocntl si no lo está ya.
Para que estos cambios surtan efecto hay que reiniciar el servidor.
2. Lo siguiente es preparar la llamada a la BSP:
- Necesitaremos utilizar un control HTML_CONTROL desde donde lanzaremos la web, ya sea dentro del propio control de la dynpro como en el explorador web por defecto. En el programa SAPHTML_SSO_DEMO se puede ver un ejemplo.
- Justo antes de mostrar la web con los métodos SHOW_URL o DETACH_URL_IN_BROWSER hay que llamar al siguiente método:
CALL METHOD html_control->enable_sapsso
EXPORTING
enabled = 'x'.

Más información: Nota OSS 612670 - SSO for local BSP calls using SAP GUI HTML Control

OPCION 2. Paso de parámetros
Otra opción bastante más cutre y mucho menos segura consiste en pasarle a la BSP el usuario y password como parámetros en la URL de la web. Para ello sólo hay que añadir los siguientes dos parámetros a la URL:
?sap-user=[nombre_usuario]&sap-password=[password]
No es recomendable si no se trata de conexiones locales ya que cualquiera que vea la URL puede ver el usuario y la contraseña pero puede servir para un apaño.

FIELD-EXITS (PRFB EN CMOD)

2007-11-20T15:16:00.000+01:00

Si, ya sabemos que no deben usarse, pero.... a veces la noche antes del arranque surge ese requerimiento que alguien olvidó decir/recoger y que el estándar no cubre y es eso o meterle un hachazo al estándar. Como siempre olvido la manera de activarlo, creo este post:

CMOD --> ok_code = PRFB

Para el que sea nuevo en esto (o muy puritano) recordaremos que es un field-exit. Se trata de una funcionalidad que permite añadir código asociado a un campo de cualquier pantalla. A partir de la versión 4.6C los field exits están discontinuados. Aunque no he podido encontrar la razón oficial, teniendo en cuenta el efecto que potencialmente puede tener en el rendimiento (ejecutar un módulo de funciones con dios sabe qué en cada intro) y las burradas que hacía la gente, supongo que el rendimiento es el principal responsable. En cualquier caso tropocientas versiones después sigue siendo posible acceder a ella por lo que si la cosa se pone negra....

Algunas características:

-El código se empaqueta en un módulo de función.

-Es posible condicionar la ejecución de una field-exit a un dynpro concreta.

- Se ejecuta en el PAI (bueno, justo antes), por lo que es necesario ejecutar alguna acción con la pantalla.

-Existe un parámetro de instancia que controla si están activos o no: ABAP/FIELDEXIT

-No pueden debugarse

-Solo los campos de entrada disparan la ejecución de la field-exit.

-Solo los campos con referencia al diccionario (elemento de datos) son susceptibles de tener field-exit

- El único parámetro de la función de exit es el valor del campo. (Para recuperar valores de otros campos es posible enviarlos con otro field-exit, con la pequeña limitación de que los field-exit se ejecutan "aleatoriamente" o sea por que el campo esté físicamente delante no quiere decir que se ejecute antes, tampoco es por orden alfabético, ni inverso,... (si alguien conoce el criterio que lo diga), aunque suelen comportarse siempre de la misma forma, por lo que si eres de los que en Google pulsas "Voy a tener suerte" pues eso, prueba. Otra posibilidad algo más segura es tirar de las referencias en la memoria a las variables de los programas en ejecución ( o sea (nombre _include)nombre_variable ) (Nota a los editores: a ver quien hace un post de esto!!!!).

- Otra cosa en el caso de table controls, la cosa se complica. En ese caso no es posible acceder en el momento en que se puede canviar el valor del campo al contenido de la tabla. Recordemos que el field-exit se ejecuta justo antes de PAI por lo que los valores de la pantalla no se han transmitido a los módulos de función. En ese caso hay que jugar con los SET y los GET.

ERROR AL ESCRIBIR EL NUMERO 100 EN LETRAS

2007-11-14T10:37:00.001+01:00

SAP dispone de la función SPELL_AMOUNT para traducir un numero a texto que se utiliza sobretodo para imprimir las cantidades de los cheques y documentos del estilo. Puede suceder que al imprimir números que contengan en número 100 en las centenas escriba lo siguiente:

Número 1.160,00 -> MIL 100 SESENTA con CERO céntimos.

SAP no es capaz de escribir la palabra CIENTO.
Para solucionar este error basta con modificar un registro de la tabla T015Z, que es donde se guardan los textos de los números.

Buscamos la siguiente entrada:

Y lo sustituimos editando la fila por:

No debemos olvidar meterlo en una orden de transporte si no queremos tener que irlo modificando en todas las máquinas.

SELECCIONAR DIRECTORIOS DE TU PC

2007-11-06T17:03:00.000+01:00

Para seleccionar un directorio solamente de tu PC hay que hacerlo de la siguiente manera:

DATA: gd_path TYPE string.

CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
initial_folder = 'C:'
CHANGING
selected_folder = gd_path.

CALL METHOD cl_gui_cfw=>flush.

VERIFICAR EXISTENCIA FUNCION

2007-11-02T13:30:00.000+01:00

Hola, para evitar el DUMP Function module "..." not found. porque no existe la función dinámica a la que se llama, puedes usar la función 'FUNCTION_EXISTS'

Ejemplo:

data: FUNCNAME LIKE RS38L-NAME value 'ZMI_FUNCION'.

CALL FUNCTION 'FUNCTION_EXISTS'
EXPORTING
funcname = funcname
EXCEPTIONS
FUNCTION_NOT_EXIST = 1.

if sy-subrc eq 0. " Si existe la función
CALL FUNCTION funcname
....
endif.

DOBLE CLICK EN CAMPOS DE UN DYNPRO

2007-10-31T11:06:00.000+01:00

Los campos de texto de un dynpro permiten activar una opción en los atributos (pestaña de visualización) que activa el evento del doble click sobre dicho campo. Para gestionar ese doble click debemos tener en el estatus de la dynpro el código de función que utilicemos en la tecla de función F2. Éste código de función será común a todos los campos que respondadn al doble click. Después en el tratamiento del OK_CODE del módulo USER_COMMAND podemos hacer un GET CURSOR FIELD y sabremos qué campo ha provocado el doble click.

CONTROLAR UNA EXCEPCIÓN DE SISTEMA

2007-10-19T10:00:00.000+02:00

Al más puro estilo C++ en Abap también podemos hacer try y catch. De hecho hay dos maneras aunque la primera parece estar obsoleta. En cualquier caso os muestro dos maneras de coger las excepciones del sistema y asi evitar el molesto dump.

1) Solo con la sentencia CATCH / ENDCATCH.
l_num = 10.

CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 5.
l_resul = l_num / 0.
ENDCATCH.

IF sy-subrc = 5.
WRITE 'Error!'.
ENDIF.

2) Con TRY y CATCH, manera que parece más correcta.

DATA: oref TYPE REF TO cx_root,
text TYPE string.

l_num = 10.

TRY.
l_resul = l_num / 0.
CATCH cx_sy_arithmetic_error INTO oref.
text = oref->get_text( ).
ENDTRY.

IF text IS NOT INITIAL.
WRITE text.
ENDIF.

¿Pero qué excepciones de sistema puedo "catchear"? En la transacción se24 (clases) buscas por CX_SY* y te saldrán todas las clases que atrapan excepciones, y en la sentencia catch pones la que más te interese.

CATCH cx_sy_[la que sea] INTO oref.

DESCARGA DE FICHEROS A LOCAL OFF-LINE (via destino RFC)

2007-10-15T17:57:00.000+02:00

Buscando otras cosas he encontrado en sap abap en castellano un manual para bajar ficheros off-line a local mediante un programa servidor RFC instalado en local y definiendo un destino RFC en el servidor.

CONFIGURAR UNA PDA CON WINDOWS CE PARA RESOLVER DOMINIOS

2007-10-15T17:10:00.001+02:00

Si se trabaja con PDA's que tengan instalado el sistema operativo Windows CE (ejem ejem) y querais resolver una dirección de un servidor os dareis cuenta rápidamente que por el método tradicional (archivo hosts) no se puede, básicamente porque no existe.

Por lo tanto se deberá hacer lo siguiente:

1) Agenciarte un editor de registro para tal efecto. (ya que Windows CE no lo incorpora)
2) Colocarte en la siguiente carpeta HKEY_LOCAL_MACHINE\Comm\Tcpip\Hosts\
3) Crear una nueva clave (key) con el nombre del dominio a resolver (p.e. servidor.dominio.com)
4) Crear dentro de esta clave un valor binario llamado ipaddr que en su valor contendrá la dirección IP en hexadecimal separadas por espacios. (p.e. C0 A8 01 01)
5) Guardamos... et voilà!

¿Que qué tiene esto que ver con SAP? Pues por ejemplo para ver una WebDynpro desde una PDA, porque las webdynpros solo admiten dominios estrictos, lo que viene a decir que no sirve poner la IP a pelo porque nos ofrecerá un bonito dump. Cosas de los de Walldorf...

SOLUCIONAR ERROR DE INTERNET EXPLORER EN EDITOR WEBDYNPRO

2007-10-09T09:50:00.000+02:00

El editor del layout de las view de una WebDynpro ABAP es una aplicación web que se visualiza integrado en el SAPGUI. A veces puedes encontrarte que al acceder a la se80 te aparezca un error en lugar del layout. Esto suele ser debido a que el servidor SAP no está registrado en el servidor de dominio. En caso de no poder registrarlo o carecer de él debe realizarse la siguiente entrada en el fichero host (c:\windows\system32\drivers\etc\hosts)

10.1.1.1 (sustituir por la IP de vuestro servidor) server.empresa.com ([servidor].[dominio].[ext])

esto es debido a que el WAS rechaza las peticiones que no se realizan con el nombre de dominio "estricto" (FQDN Fully qualified domain name). Esto es aplicable por tanto no solo al editor si no a la ejecución de la aplicaciones Web desarrolladas en SAP (WebDynpro, BSP,...) y debe tenerse en cuenta de cara al despliegue de la aplicación.

VER EL "NEW VISUAL DESIGN" EN UN SAP GUI SCRIPT

2007-10-08T18:16:00.000+02:00

Cuando se hace un script para acceder al SAP GUI mediante un objeto embedido en el navegador la presentación que te da por defecto es la del aspecto visual antiguo. Para ver el nuevo, denominado New Visual Design, se debe hacer lo siguiente.

1. Panel de control -> CONFIGURACIÓN SAP
2. En la pestaña aplicaciones se deberá añadir el programa que está llamando al script. Como por ejemplo MSHTA.EXE en el caso que he probado yo.
3. Editar el registro de windows (regedit) y mirar en la ruta HKEY_CURRENT_USER/Sofware/SAP/General/Applications/ que el atributo Enjoy tenga el valor On. (En muchos casos esto no hay que hacerlo).

Et voilà... magia potagia.

COMO SOBREVIVIR A LA PESADILLA UNICODE

2007-10-02T17:27:00.000+02:00

La versión 7.0 de Netweaver es "mandatory" unicode y de 64 bits. Desde el punto de vista de la programación, eso (Unicode) quiere decir que para migrar programas Z de versiones anteriores hay que activar el flag de activar verificación unicode así como hacer algunas modificaciones al código (OPEN DATA SET, tratamiento de strings,...). Para ayudar en esta labor existe la transacción UCCHECK. Con ella es posible hacer el analisis de compatibilidad con unicode y, una vez solventados los problemas activar el flag de forma masiva generando una orden de transporte.

MOSTRAR UN POPUP CON UN ALV

2007-09-18T16:56:00.001+02:00

Muchas veces queremos mostrar un listado simple sin complicaciones al pulsar un botón. Hay una función muy interesante que. de muy fácil uso, te muestra un listado ALV en una pantalla tipo popup. Esta funcion es: REUSE_ALV_POPUP_TO_SELECT.

IMPRIMIR IMAGENES EN COLOR DESDE SAPSCRIPT O SMARTFORMS

2007-09-17T16:20:00.000+02:00

En ocasiones puede suceder que al utilizar una imagen en formularios sapscript o smartforms procendente de la transacción SE78, en el momento de imprimirla el fondo blanco de la imagen aparezca de un color ligeramente grisáceo provocando un efecto bastante feo estéticamente. Este problema surge con imágenes con alta calidad de color y sólo es perceptible al cargarlas en la SE78. Para solucionarlo sólo tenemos que bajar la calidad del color de la imágen a 256 colores y los fondos blancos se verán perfectamente.

SEPARAR EL NOMBRE DEL FICHERO DEL PATH

2007-07-27T12:11:00.000+02:00

Si alguna vez necesitáis separar el nombre del fichero del path donde se ubica podéis usar la función: 'SO_SPLIT_FILE_AND_PATH'

Adjunto ejemplo:

PARAMETERS: FILENAME LIKE RLGRAP-FILENAME.
DATA:
F_PATH LIKE RLGRAP-FILENAME,
F_NAME LIKE RLGRAP-FILENAME.

CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'
EXPORTING
FULL_NAME = FILENAME
IMPORTING
STRIPPED_NAME = F_NAME
FILE_PATH = F_PATH
EXCEPTIONS
X_ERROR = 1
OTHERS = 2.

write: / 'Filename ', filename,
/ 'Name ', f_name,
/ 'Path ', f_path.

CAMBIAR EL LOGO DEL MENÚ INICIAL

2007-07-19T10:51:00.000+02:00

Para cambiar el logo del menú de inicio de SAP primero debemos cargar el logo en SAP. Usaremos la transacción SMW0 y marcaremos la opción "Datos binarios p.aplicaciones WebRFC", después le damos 2 veces al F8. Con el botón crear podemos crear un nuevo objeto y luego importar la imagen que queramos.
Una vez tenemos nuestra imagen en el sistema ejecutaremos la transacción SM30 y editaremos la tabla SSM_CUST. En el registro con ID START_IMAGE escribiremos el código del objeto que hemos creado. Si queremos que la imagen se ajuste al tamaño del espacio podremos el valor YES en RESIZE_IMAGE.

Notas: El formato de la imagen debe ser GIF o JPG. Es recomendable que la imagen no sea excesivamente grande ya que ocupará memoria en SAP y puede perjudicar el rendimiento de la máquina. La imagen se cambiará para TODOS los usuarios del sistema.

AÑADIR INFORMACIÓN A LA PANTALLA DEL LOGON

2007-07-18T18:01:00.000+02:00

Para añadir información adicional a la pantalla del logon, por ejemplo la descripción de los mandantes, se debe hacer lo siguiente:

- Transacción SE61
- En clase de documento elegir "Texto general"
- Crear el documento "ZLOGIN_SCREEN_INFO".
- Escribir lo que te venga en gana.

PD: El tipo de formato U sirve para los títulos

HACER UNA COLUMNA EDITABLE EN UN ALV WEBDYNPRO

2007-07-11T11:07:00.000+02:00

Hacer editable una columna en un ALV no es lo que se dice trivial precisamente. A continuación pongo el código necesario para tal efecto en el método WDDOINIT de la vista donde esté el ALV.

METHOD wddoinit .

* recuperar las caracteristicas del ALV
DATA: l_ref_interfacecontroller TYPE REF TO iwci_salv_wd_table .
DATA: l_value TYPE REF TO cl_salv_wd_config_table.
DATA: l_ref_cmp_usage TYPE REF TO if_wd_component_usage.

l_ref_cmp_usage = wd_this->wd_cpuse_alv( ).
IF l_ref_cmp_usage->has_active_component( ) IS INITIAL.
l_ref_cmp_usage->create_component( ).
ENDIF.

l_ref_interfacecontroller = wd_this->wd_cpifc_alv( ).
l_value = l_ref_interfacecontroller->get_model( ).

* hacer editable la columna status
DATA: lr_column_settings TYPE REF TO if_salv_wd_column_settings,
lr_input_field TYPE REF TO cl_salv_wd_uie_input_field,
l_column TYPE REF TO cl_salv_wd_column,
lr_table_settings TYPE REF TO if_salv_wd_table_settings.

* asignaciones
lr_column_settings ?= l_value.
lr_table_settings ?= l_value.

* obtener la columna que queremos
l_column = lr_column_settings->get_column( 'STATUS' ).

* crear el parametro de entrada del metodo SET_CELL_EDITOR
CREATE OBJECT lr_input_field
EXPORTING
value_fieldname = 'STATUS'.
l_column->set_cell_editor( lr_input_field ).

* finalmente hacerlo del modo escritura
lr_table_settings->set_read_only( abap_false ).

ENDMETHOD.

DESCARGAR / CARGAR ORDENES LIBERADAS A LOCAL

2007-07-11T09:30:00.001+02:00

Buscando (otra cosa por supuesto) por la red he encontrado este link http://wiki.ittoolbox.com/index.php/Upload/download_SAP_transport_request con el código de un par de programas que permiten descargar ordenes a local y cargar ordenes locales en el SAP al que estemos conectados.

BORRAR IDOCs

2007-07-10T12:09:00.000+02:00

Muchas veces queremos borrar IDOCs del sistema y no deseamos hacer archiving. El programa RSETESTD - (Transacción WE11) es la solución.

MOSTRAR ICONOS EN UN ALV CON WEBDYNPROS

2007-06-25T16:46:00.000+02:00

Para poder mostrar iconos en una celda de un ALV con webdynpros necesitamos utilizar dos campos de la estructura base del ALV. Uno de los campos servirá para guardar el nombre del icono y el otro es realmente el que muestra el icono. En nuestro ejemplo tenemos dos campos de tipo STRING, uno llamado ICONO, donde se guarda el nombre del icono y otro llamado ESTADO que será el que mostraremos en el ALV.
En la función de tratamiento de los datos tendremos que rellenar el campo ICON con el icono que deseemos. Para ello podemos usar el include de iconos <icon>.
En el método WDDOINIT de la vista hay que configurar el campo para mostrarlo como icono. Primero obtendremos la columna donde queremos mostrar el icono.

* poner iconos
l_column = l_value->if_salv_wd_column_settings~get_column( 'ESTADO' ).

Después generaremos un objeto de tipo imagen.

CREATE OBJECT lr_image.

Se asigna el campo ICONO a la imagen y la imagen a la columna ESTADO.

* En el campo ICONO está el nombre del icono a mostrar en la columna ESTADO
lr_image->set_source_fieldname( 'ICONO' ).
l_column->set_cell_editor( lr_image ).

Finalmente eliminamos el campo ICONO de la visualización ya que no nos interesa que aparezca el código del icono en el listado.

* borramos la columna ICONO, sólo es para uso interno
l_value->if_salv_wd_column_settings~delete_column( 'ICONO' ).

OBTENER LAS PROPIEDADES DE UN ALV

2007-06-25T10:47:00.000+02:00

Para saber qué propiedades tiene un ALV (celda actual, scroll, celda seleccionada, etc...) que tenga un listado, no importa que esté llamada con cualquier función REUSE, solamente hay que llamar a la función GET_GLOBALS_FROM_SLVC_FULLSCR.

HACER QUE UNA ALV SEA INTERACTIVA (OOP)

2007-06-07T16:09:00.000+02:00

Si anteriormente explicábamos como hacer que una ALV fuese interactiva con el usuario, es decir, que en los campos editables de un grid se escribiera algo y quedase guardado en la tabla interna, hoy vamos a explicar cuál es el comando homónimo en un ALV hecho con objetos con el que se utiliza para el grupo de funciones REUSE_ALV.

Se trata de registra un evento en el grid que hemos creado con la tecnología OOP. Exactamente con este código bastará.

* hacer que la ALV sea interactiva
CALL METHOD g_grid_alv->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_modified.

Donde el objeto g_grid_alv es de la clase tipo cl_gui_alv_grid.

AÑADIR UN BITMAP A UN FORMULARIO SAPSCRIPT

2007-05-24T12:11:00.001+02:00

Si se quiere añadir un bitmap que se pueda ver desde la transacción se78 a un formulario sapscript sin necesidad de tener que transformarlo desde TIFF se puede conseguir mediante las siguiente instrucción:

/: BITMAP 'ZBMP' OBJECT GRAPHICS ID BMAP TYPE BCOL

PONER TOTALES DE UNA COLUMNA EN UN ALV WEBDYNPRO

2007-05-24T09:24:00.000+02:00

Para añadir un total de una columna de un ALV de un webdynpro habrá que recuperar el campo del ALV del que queremos a hacer el total y añadirle una regla de agregación. El código es el siguiente dentro del WDDOINIT para que se añada al inicio de cargar el ALV:

DATA: l_ref_interfacecontroller TYPE REF TO iwci_salv_wd_table .
DATA: l_value TYPE REF TO cl_salv_wd_config_table.
DATA: lr_field TYPE REF TO cl_salv_wd_field,
lr_aggr_rule TYPE REF TO cl_salv_wd_aggr_rule.

l_ref_interfacecontroller = wd_this->wd_cpifc_alv( ).
l_value = l_ref_interfacecontroller->get_model( ).

lr_field = l_value->if_salv_wd_field_settings~get_field( 'VENTAS' ).
lr_field->if_salv_wd_aggr~create_aggr_rule( ).
lr_aggr_rule = lr_field->if_salv_wd_aggr~get_aggr_rule( ).
lr_aggr_rule->set_aggregation_type( if_salv_wd_c_aggregation=>aggrtype_total ).

MODIFICAR EL COLOR DE UNA COLUMNA EN UNA TABLA WEBDYNPRO

2007-05-22T10:52:00.000+02:00

Si tenemos una tabla corriente de un Webdynpro y queremos cambiar el color de una columna deberemos ir al método WDDOMODIFYVIEW y copiar el siguiente código:

DATA: wd_table_column TYPE REF TO cl_wd_table_column.

wd_table_column ?= view->get_element( 'TABLECOLUMN' ).
wd_table_column->set_cell_design( value = '02' ).

Hay que recuperar el elemento TABLECOLUMN (osea la columna de la tabla) y asignarle el diseño deseado, en este caso '02'.
Los valores son los siguientes:

00 standard
01 negative
02 positive
03 badvalue_dark
04 badvalue_medium
05 badvalue_light
06 criticalvalue_dark
07 criticalvalue_medium
08 criticalvalue_light
09 goodvalue_dark
10 goodvalue_medium
11 goodvalue_light
12 key_medium
13 group_level1
14 group_level2
15 group_level3
16 one
17 two
18 three
19 four

CREAR UN MOVIMIENTO DE MERCANCIAS 351 CON CENTRO ORIGEN Y DESTINO

2007-05-10T15:50:00.000+02:00

El caso que nos ocupa es hacer un movimiento 351 a un pedido de compras, emulando la transacción MB1B, con un centro de origen a otro de destino. Seguramente no descubra nada nuevo si os digo la bapi que hay que utilizar ( BAPI_GOODSMVT_CREATE ) pero nos hemos peleado bastante con la manera de llamarla, ya que nos devolvía errores muy diversos.

Principalmente no hay que hacer nada raro, pero no hay que rellenar el campo MVT_IND que yo inicialmente le ponía una 'B' (referencia a pedido), pero por lo visto hay que dejarlo en blanco. Os paso el ejemplo:

DATA: ls_gh LIKE bapi2017_gm_head_01,
ls_gc LIKE bapi2017_gm_code,
l_md TYPE bapi2017_gm_head_ret-mat_doc,
lt_gi TYPE TABLE OF bapi2017_gm_item_create WITH HEADER LINE,
lt_rt TYPE TABLE OF bapiret2.

ls_gh-pstng_date = sy-datum.
ls_gc-gm_code = '04'. "mb1b

lt_gi-material = ls_ekpo-matnr.
lt_gi-plant = ls_ekko-reswk. "centro de origen
lt_gi-stge_loc = ls_ekpo-lgort.
lt_gi-move_type = '351'.
lt_gi-entry_qnt = 1.
lt_gi-po_number = p_ebeln.
lt_gi-po_item = p_ebelp.
* lt_gi-mvt_ind = 'B'. "importante no ponerlo
APPEND lt_gi. CLEAR lt_gi.

CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = ls_gh
goodsmvt_code = ls_gc
IMPORTING
materialdocument = l_md
TABLES
goodsmvt_item = lt_gi
return = lt_rt.

Con esto y un bizcocho ya tienes el movimiento creado.