..:: RAMGV::.. -[ SAP & ABAP Stuff ]-

Mudanza de blog

2010-12-15T23:12:00.003-03:00

Después de mucho tiempo sin poder postear por problemas de bloqueos de puertos en el trabajo, voy a continuar mi blog en wordpress.

El blog nuevo con la info importada es:

http://ramgvsap.wordpress.com

ramgv . wordpress . com

por el filtro de blogger -_-

Saludos

Nueva Solapa en tx ME51n/ME52n/ME53n

2009-11-16T11:41:00.001-03:00

La ampliación es la MEREQ001 – Para usarle es necesario crear un projecto en la CMOD.

1 - Primero hay que ampliar el include CI_EBANDB con los campos que nosotros vamos a desear. (esto extenderá la tabla EBAN).

Ejemplo ZLAND1 y ZXBLNR

2- Modificamos la Screen, la ampliación hay que modificar la subscreen 0111

Ejemplo simple

3- Modificamos principalmente las funciones EXIT_SAPLMEREQ_001 y EXIT_SAPLMEREQ_003

La EXIT_SAPLMEREQ_001 es para pasar la información al customer exit y la EXIT_SAPLMEREQ_003 para grabar los datos de exit a las tablas.

EXIT_SAPLMEREQ_001

*&---------------------------------------------------------------------*
*& Include           ZXM02U01
*&---------------------------------------------------------------------*
data   : i_mereq_item type mereq_item,
          gf_aktyp type aktyp,
          lc_garg type eqegraarg,
          lc_edit(1),
          ls_head type mereq_header,
          lc_header type ref to if_purchase_requisition,
          ti_enq type table of seqg3 .
CLEAR lc_edit.
if im_req_item is initial.
else.
i_mereq_item = im_req_item->get_data( ).
endif.
" Chequeo para visualizar/modificar el campo (ya que por default está simpre editable
if sy-tcode eq 'ME53N'.
    lc_header = im_req_item->get_requisition( ).
concatenate sy-mandt ls_head-banfn '*****' into lc_garg.
call function 'ENQUEUE_READ'
exporting
        gclient = sy-mandt
        gname   = 'EBAN'
        garg    = lc_garg
        guname = sy-uname
tables
        enq     = ti_enq.
if ti_enq[] is not initial.
      lc_edit = 'X'.
else.
clear lc_edit.
endif.
endif.
EXPORT g_edit = lc_edit TO MEMORY ID 'FLAG_EDIT'.

EXIT_SAPLMEREQ_003

*&---------------------------------------------------------------------*

*& Include           ZXM02U03
*&---------------------------------------------------------------------*
tables: ci_ebandb.
data : l_mereq_item type mereq_item.
if not im_req_item is initial.
   l_mereq_item = im_req_item->get_data( ).
if ( ci_ebandb-zland1 ne l_mereq_item-zland1 ).
   move-corresponding ci_ebandb to l_mereq_item .
   call method im_req_item->set_data( l_mereq_item ).
   ex_changed = 'X'.
endif.
endif.

En el PBO de la SubScreen agrego la lógica para determinar si hay que grisar el campo o no.

module status_0111 output.
* SET PF-STATUS 'xxxxxxxx'.
set titlebar 'TEST'.
data: l_edit(1).
* se chequea que se esté en la ME51N/2 o 3 en modo edición
import g_edit to l_edit from memory id 'FLAG_EDIT'.
loop at screen.
if sy-tcode = 'ME51N' or sy-tcode = 'ME52N' or ( sy-tcode = 'ME53N' and l_edit = 'X' ).
screen-input = 1.
else.
screen-input = 0.
endif.
modify screen.
endloop.
endmodule. " STATUS_0111 OUTPUT

RESULTADO FINAL

Visualización

Modificación

Al grabar se grabará el campo creado en la EBAN.

A modo informativo dejo la función del resto de las funciones, sirven para hacer validaciones, mostrar mensajes, etc.

Function exits

The screen is linked to the standard program via function modules. There are function modules that:

o Provide your subscreen with data (export)

- EXIT_SAPLMEREQ_001 Export Data to Customer Subscreen for Purchase Requisition(PBO)

- EXIT_SAPLMEREQ_002 Prepare Customer Subscreen for Requisition (PAI Before Subscreen PAI)

o Get data from your subscreens (import)

- EXIT_SAPLMEREQ_003 Import Data from Customer Subscreen for Purchase Requisition

You can set or supply your own data fields in the PBO function modules.You receive the current (possibly changed in comparison to the PBO call) standard program data in the PAI function module. You can return your fields to the standard program in the import function modules. For this purpose, read the current status of the purchase requisition object using the method get_data in a local structure of type mereq_item. Now write the customer data in this structure and reset the data in the purchase requisition object using the method set_data.

You should note that function exits 001, 002, and 003 are determined for dialog purposes only and are not headed for when creating purchase requisitions using function modules or BAPIs. Do not issue any error messages in these function modules either. There is a separate function exit for verifying the customer fields (EXIT_SAPLMEREQ_005 Checking Customer's Own Purchase Requisition Data (Without Dialog)). The object reference, the new data, the data from the last verification, and the database status of the purchase requisition items are available to you here. Parameter IM-FULL_CHECK is set if the user has chosen to update or check explicitly. Parameter IM_ITEM_HAS_ERRORS informs you whether the purchase requisition item has been classified by the standard program as containing errors.

The task of this function exit is to ensure the consistency of the customer-specific fields. You can also change standard fields using the public interface if_purchase_requisition_item. The fields listed in structure MEREQ_ITEM_S_CUST_ALLOWED are available for changing. You fill the return table EX_MESSAGES to issue the errors and warnings to the standard program and the user. The fields TYPE, ID, NUMBER, and MESSAGE_V1 thru MESSAGE_V4 are analyzed and added to the standard error log. You have to set the return parameter EX_RECHECK_ITEM if you have changed standard fields. The standard program checks the purchase requisition

item after exiting the function exit again. You should note that the functions exits are chosen again when this is done. To avoid endless loops, you should not set this parameter every time. The purchase requisition is updated in two steps. In the first step (PREPARE), the function exit EXIT_SAPLMEREQ_008 (Prepare for Update of Customer's Own Purchase Requisition Data) is called up. The system tells you the old (temporary) purchase requisition number and the new purchase requisition number. In addition, the changes are given to tables EBAN and EBKN. You can no longer change the fields here. You use this module to prepare for updating your own data and tables. Do not execute any database operations or call any function modules for the update (in update task). Make a note of which data you want to update in your function group. You should note that more than one purchase requisition can be processed at the same time (for example, source of supply assignment or collective release). This function exit is processed once for each header in the purchase requisition. The second step in the update process performs the database operations or calls the update modules. Function exit EXIT_SAPLMEREQ_006 (Update o Customer's Own Purchase Requisition Data for all PReqs Prepared). This function exit is called up only once for all purchase requisitions that have been changed. You now update the data that you noted in the first step. When all purchase requisitions have been successfully updated, function exit EXIT_SAPLMEREQ_004 (Reset Customer Data After Updating All Purchas Requisitions (Without Dialog)). You reset the data for your function group(s) here.

If you want to read your own tables for this, you should use the function module EXIT_SAPLMEREQ_007. This is called when the purchase requisition is read from the database. You receive the transaction type via the purchase requisition header. The interface if_purchase_requsition_item provides a method, GET_REQUISITION, that returns the purchase requisition header. Using method GET_TRANSACTION_STATE for interface if_purchase_requisition, you can determine the transaction type from field ex_document.

o A Display

o V Change

o H Create

Crear un AUTHORITY-CHECK

2009-09-29T16:27:00.001-03:00

1 -Creamos en la SU20 un ámbito de autorización (elemento de dato) que luego usaremos en el objeto.

Nombre del campo Z____ y ponemos el elemento de Dato correspondiente a ese campo.

y luego

2 –Creamos la clase de autorización en la SU21

y luego posicionandonoss en la clase recién creada

Elegimos el nombre del objeto y ponemos el campo creado en el punto 1.

Grabamos y salimos.

3- Definimos los valores posibles de nuestro campo definido y el BASIS asignará a los roles de los usuarios el objeto de autorización creado y pondrá los valores de cada usuario.

4- En el código fuente

AUTHORITY-CHECK OBJECT ‘ZBOTONES’    “Objeto creado
      ID ‘ZUCOMM’ FIELD ‘SAVE’.                  “sy-ucomm que tengo que verificar.
IF sy-subrc EQ 0.
      “El usuario tiene el valor SAVE para dicho campo en su rol
ELSE.
      “El usuario no tiene el valor SAVE para dicho campo en su rol
ENDIF.

Redondeo y decimales en ABAP

2009-09-23T16:36:00.001-03:00

Muchas veces tenesmo problemas con el redondeo, acá hay algunas instrucciones útiles para el manejo de los mismos.

DATA N TYPE P DECIMALS 2.
DATA M TYPE P DECIMALS 2 VALUE '-5.55'.
N = ABS( M ). WRITE: 'ABS: ', N.
N = SIGN( M ). WRITE: / 'SIGN: ', N.
N = CEIL( M ). WRITE: / 'CEIL: ', N.
N = FLOOR( M ). WRITE: / 'FLOOR:', N.
N = TRUNC( M ). WRITE: / 'TRUNC:', N.
N = FRAC( M ). WRITE: / 'FRAC: ', N.
* The output appears as follows:
*
* ABS: 5.55 (nro absoluto)
*
* SIGN: 1.00-
*
* CEIL: 5.00- (redondea hacia arriba)
*
* FLOOR: 6.00- (redondea hacia abajo)
*
* TRUNC: 5.00- (parte entera)
*
* FRAC: 0.55- (parte decimal)

Salvar datos en ALV editable con un status bar Z

2009-08-25T10:08:00.001-03:00

El otro día me cruce con un error muy bizarro. Yo tenía un ALV editable al cual tuve que agregarle un status bar Z por agregar un botón nuevo.

Copie la status bar standard a mi programa y lo modifique. La status bar STANDARD que esta en el grupo de funciones SALV, no tiene definido el Function Code del boton Grabar (SAVE). entonces le setee el nombre &SAVE.

Que paso ? Si yo cambiaba el valor de algun campo editable del ALV al llegar al USER_COMMAND no veía el nuevo valor ingresado sino que veía el antiguo. Y eso andaba bien por lo cual el error debía estar en la status bar. Y efectivamente así fue.

Para que los datos de un ALV editable sea visibles en el FORM USER_COMMAND, el function code de la status bar tiene que ser &DATA_SAVE. De tener otro nombre la información no es pasada al USER_COMMAND.

Colores en ALV

2009-06-01T16:57:00.001-03:00

Si corremos el reporte DEMO_LIST_FORMAT_COLOR_1, podemos ver los números que podemos usar para los determinados colores en el ALV

CODIFICACION DE COLORES: El color del ALV sigue el siguiente formato CXYZ donde...
C-> indica que es un color
X-> indica el numero de color, que debe ser del 1 al 9
Y-> indica la intensidad: ('0'=off / '1'=on).
X-> indica si el color es inverso ('0'=off / '1'=on).

Ejemplo para ver facilmente

Por ejemplo C500 mostrará un verde claro.

MD_STOCK_REQUIREMENTS_LIST_API - MD04 - listado de doc. por Material/Centro

2009-05-08T15:22:00.001-03:00

Esta función nos permite ver la información de la tx MD04.

Mi req. era realizar un reporte con las cantidades disponibles en Ordenes de compra, Ordenes previsionales, Ordenes de producción y Solped. Pero la función trae muchos más doc. se pueden ver todos en el dominio DELKZ.

A la función ingresamos con Material y centro y en la tabla MDEZX estará la información necesaria.

Separar un texto largo cada X cantidad de char o por un símbolo de retorno de carro a una tabla

2009-04-16T15:31:00.001-03:00

Esta función RKD_WORD_WRAP , nos permitirá partir un texto largo en X cantidad de caracteres y además podremos tener otro corte de control por un CHAR que le pasemos.

Ejemplo:

El resultado de esta corrida será una tabla de 7 registros, notese que si no existe el char de retorno de carro nos separará cada 5 chars, si encuentra el simbolo cortará en ese simbolo y comenzará otro renglón.

Pasar el signo negativo de la derecha a la izq

2009-04-16T14:50:00.001-03:00

Esto puede resultar tonto, pero hay veces en que los clientes quieren que los números negativos tengan el signo a la izquierda y no a la der. Si bien esto podemos hacerlo trabajando con la cadena de caracteres hay una función que nos simplifica la vida.

CLOI_PUT_SIGN_IN_FRONT

Ejemplo:

Función para ver características y clasificaciones de un Material - Lote

2009-04-16T12:50:00.001-03:00

La función QC01_BATCH_VALUES_READ nos permite ver facilmente las características de un Material-Lote

Le pasamos Material, Centro (opcional) y Lote. Además del idioma y fecha del día.

CALL FUNCTION 'QC01_BATCH_VALUES_READ'
EXPORTING
            I_VAL_MATNR    = I_DOCUMENT_DATA-MATNR
            I_VAL_WERKS    = I_DOCUMENT_DATA-WERKS
            I_VAL_CHARGE   = I_DOCUMENT_DATA-CHARG
            I_LANGUAGE     = I_LANGUAGE
            I_DATE             = I_DATE
IMPORTING
            E_CLASS             = L_CLASS
            E_CLASS_TYPE   = L_CLASS_TYPE
TABLES
            T_VAL_TAB        = L_VAL_TAB
            T_CHAR_TAB     = L_CHAR_TAB
            T_ATT_TAB       = L_ATT_TAB
EXCEPTIONS
            NO_CLASS              = 01
            INTERNAL_ERROR = 02
            NO_VALUES           = 03
            NO_CHARS             = 04.

Nos devuelve 3 tablas:

1- Tiene todas las características con valor ese Material-Lote

2- La siguiente nos pasa todas las características posibles que posee ese Material - Lote marcándonos cuales son las que están cargadas

3- La última posee los atributos técnicos de las características (si es numérico, char, etc)

Lista de materiales de un material en particular

2009-04-16T12:28:00.001-03:00

Dejo esta lógica para obtener la lista de materiales de un material. Se que hay funciones para lograr lo mismo porque las he usado pero hoy en día no las tengo a mano.

* Funcion para traer el num de material en el formato del sistema
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
        EXPORTING
          input = wa_archivo-material
        IMPORTING
          output = l_material.

SELECT SINGLE stlal stlnr
       INTO (wa_stlal, wa_stlnr)
       FROM mast
       WHERE matnr EQ l_material.

SELECT stlkn
       FROM stas
       INTO CORRESPONDING FIELDS OF TABLE it_stas
       WHERE stlnr EQ wa_stlnr AND
                   stlal EQ wa_stlal.
IF it_stas[] IS NOT INITIAL.
   SELECT idnrk posnr
        FROM stpo
        INTO CORRESPONDING FIELDS OF TABLE it_stpo
        FOR ALL ENTRIES IN it_stas
        WHERE stlnr EQ wa_stlnr AND
                   stlkn EQ it_stas-stlkn.
ENDIF.

En la tabla it_stpo el campo IDNRK es el número de material.

Radio Buttons dinámicos y ocultar/mostrar grupos de parámetros de selección

2009-04-14T15:00:00.003-03:00

Una vez necesite hacer una pantalla de selección dinámica, es decir que si elegía un radio button debía mostrar X cantidad de parámetros y ocultar otros, y viceversa sin la necesidad de que tengamos que apretar un ENTER para que se dispare el evento AT-SELECTION-SCREEN.

El siguiente código lo arme como modo ejemplo para que se den cuenta de como usarlo

REPORT ZRADIO_BUTTONS.
PARAMETERS: p_1(10) MODIF ID A,
                       p_2(2)   MODIF ID B,
                       p_3(5).
PARAMETERS: p_A RADIOBUTTON GROUP rad1 USER-COMMAND ACT DEFAULT 'X',
                       p_B RADIOBUTTON GROUP rad1.

AT SELECTION-SCREEN OUTPUT.
LOOP AT screen.
IF p_A = 'X'.
     IF screen-group1 = 'B'.
     screen-active = 0.
     ENDIF.
ELSEIF p_B = 'X'.
    IF screen-group1 = 'A'.
    screen-active = 0.
    ENDIF.
ENDIF.

MODIFY screen.
ENDLOOP.

El MODIF ID lo que hace es darle un identificador a cada parámetro por lo cual no es necesario ocultar cada uno de los parámetros, sino que es más práctico ocultar directamente todos los elementos de un grupo.

La adición USER-COMMAND es la que permite que la selección sea dinámica y que no haya que apretar un enter para ejecutar un PAI.

NOTA: Al usar este método es muy molesto tener parámetros de selección OBLIGATORIOS, porque de no estar completos nos va a saltar la validación y los radio button no funcionarán de la forma deseada. Así que de usar Radio buttons dinámicos la validaciones las deberemos hacer manualmente nosotros mismos.

Saltear falta de autorización para una transacción

2009-04-14T12:58:00.002-03:00

Existe una función llamada: RS_HDSYS_CALL_TC_VARIANT

Ir a la SE37, ejecutar la función, en el parámetro TCODE ponemos la transacción deseada y le sacamos la X al parámetro AUTHORITY-CHECK.

NOTA: No es infalible, puede ser que igualmente no podamos usarlo y ojo porque queda en log el acceso.

Programa para la regeneración de fórmulas

2009-03-31T16:41:00.001-03:00

Luego de Crear alguna formula o de algún cambio a nivel de activación. Necesitaremos correr el siguiente reporte

RV80HGEN

Este regenera las fórmulas, al no hacer esto seguramente nos aparezcan Dump al momento de usar fórmulas nuevas. Como buena práctica siempre que se agregan fórmulas debería de correrse.

Fórmulas de SD - VOFM - Agrupación y separación

2009-03-31T16:40:00.001-03:00

En la transacción VOFM encontramos varios menues donde entrar esto sirve para el uso de rutinas, que sirven para agrupaciones, calculo de condiciones, etc.

La agrupación y separación sirve para que al momento de facturar pedidos o entregas por ejemplo tenga un cierto criterio de agrupación. Por ejemplo se desea que si varias entregas tienen mismo destinatario (cliente) se agrupen en una sola factura para no hacer una por por cada entrega.

Se va a la sección

La rutina que elegimos tiene que estar seteada en el customizing por el funcional SD

FORM DATEN_KOPIEREN_901.
*Criterio de Agrupamiento
DATA: BEGIN OF ZUK,
KUNNR TYPE LIKP-KUNNR,
END OF ZUK.

ZUK-KUNNR = LIKP-KUNNR.

VBRK-ZUKRI = ZUK.

ENDFORM.

Con esta subrutina se va a agrupar las entregas por cliente (KUNNR). Todos los campos que se agreguen a la estrutura ZUK (ZUKRI) van a ser criterios de agrupación. Si dos entregas no coinciden en alguno de los campos especificados se hace una separación.

Tabla útiles de CRM

2009-03-31T15:38:00.001-03:00

CRMD_ORDERADM_H - Cabecera de Orden
CRMD_ORDERADM_I - Posición
BUT000 -La tabla de donde salen los nombres de los códigos de Partner, se accede por el código de Partner.
SCPRIOT - Prioridades de una Orden
QPCT - Texto de Categorías
AGR_1251 - Clase de operación, entrando por roles - Function para ver roles de un user "/OSP/GET_R3_ROLES"
TJ30T - Textos para status de usuarios

Generalmente las tablas comienzan con CRMD* las que tienen que ver con ordenes.

También se puede usar la función CRM_ORDER_READ para obtener todos los detalles de una determinada orden.

Bajada de PDF de forma local

2009-03-31T15:37:00.001-03:00

Si bien existen las funciones para bajar un OTF (SapScript o Smartforms) a PDF de esta manera es mucho más sencilla, este programa ya tiene el proceso de conversión a PDF, simplemente le pasamos la orden de SPOOL y la ruta donde queremos el archivo y listo.

SUBMIT rstxpdft4
USING SELECTION-SCREEN '1000'
WITH spoolno EQ w_spool_num
WITH download EQ 'X'
WITH p_file EQ 'c:\download.pdf'
EXPORTING LIST TO MEMORY
AND RETURN.

Ejecutar un comando en el application server

2008-12-15T18:01:00.001-02:00

Con la sentencia CALL 'SYSTEM' ID 'COMMAND' ejecutamos un comando del servidor. El siguiente ejemplo creaba un determinado directorio en el mismo.

CONCATENATE 'mkdir' ' ' v_ruta ls_bil_invoice-HD_GEN-PAYER '\' ls_bil_invoice-HD_ORG-SALESORG '\' ls_bil_invoice-HD_GEN-BIL_DATE+4(2) '\'
INTO l_text.

CALL 'SYSTEM' ID 'COMMAND' FIELD l_text.

Crear ComboBox en reportes

2008-12-15T11:52:00.001-02:00

En SAP tenemos el Matchcode, pero muchas veces es tedioso ya que tarda. De esta forma tendremos un combobox.

El parámetro ps_parm tendrá la opción elejida.

TYPE-POOLS: vrm.
DATA: name TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list.
PARAMETERS: ps_parm(10) AS LISTBOX VISIBLE LENGTH 10.
AT SELECTION-SCREEN OUTPUT.
name = 'PS_PARM'.
value-key = '1'. value-text = 'Linea 1'. APPEND value TO list.
value-key = '2'. value-text = 'Linea 2'. APPEND value TO list.
value-key = '3'. value-text = 'Linea 3'. APPEND value TO list.
value-key = '4'. value-text = 'Linea 4'. APPEND value TO list.
value-key = '5'. value-text = 'Linea 5'. APPEND value TO list.
value-key = '6'. value-text = 'Linea 6'. APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            id     = name
            values = list.
START-OF-SELECTION.
WRITE: / 'Parametros : ', ps_parm.

Bug - Smartforms sin valores en la interfaz

2008-12-12T10:29:00.001-02:00

A veces suele suceder que al modificar un smartforms, al problarlo hay datos que desaparecen como por arte de magia. Esto es un bug, por no usar el verificar y solamente el activar.

Si sucede esto, Verificar y luego Activar. Y se soluciona.

Creación de IDOCs

2008-12-10T17:07:00.001-02:00

El menu WEDI e SALE sirve para la administración de IDOCs.

En la WE20 creamos el IDOC base. Un IDOC está formado por segmentos, con la estructura especifica de los campos a transladar, suele ser una de cabecera y otra posición.

Con la WE81, luego debemos crear el tipo de mensaje. Esto es el evento que trasnsmite en si al IDOC un tipo de mensaje puede tener varios IDOCs base (sería ALGO similar a las clases de mensajes en las impresiones en SAP).

Cuando tenemos el IDOC y el tipo de mensaje debemos relacionarlos para unirlos usamos la WE82.

En la trx BD64 debemos ingresar el tipo de mensaje creado en el sistema lógico y enlace correspondiente. (todo este seteo de enlaces todavia no lo vi, solamente agregue un IDOC a un ambiente ya creado.

En la WE02 podemos visualizar los IDOCs, ves su estado y contenido.

Dejo el código fuente de la parte de envió de IDOC de un programa que ya tiene en la tabla TI_HEADER los datos de cabecera y en TI_TABLE los datos de las posiciones.

form enviar_idocs .
DATA:        edidd_rec TYPE edidd.

v_msgtype = 'ZEXTBNK'. "Nombre de tipo de mensaje
v_idoctp = 'ZEXTBANK'. "Nombre de IDOC base
CLEAR v_cont.

* Por cada registro en la cabecera
LOOP AT ti_header. "INTO header_rec.

    ADD 1 TO v_cont.
    MOVE 'ZFII039_HS' TO v_segnam.

    MOVE: ti_header-bukrs TO v_ZFII039_H-bukrs,
          ti_header-DISKB TO v_ZFII039_H-DISKB.

    CLEAR edidd_rec.
    edidd_rec-segnum = v_cont.
    edidd_rec-segnam = v_segnam.
    edidd_rec-mandt = sy-mandt.
    edidd_rec-sdata = v_ZFII039_H.
    APPEND edidd_rec TO it_edidd.

    LOOP AT ti_table WHERE bukrs = ti_header-bukrs
                       AND diskb = ti_header-diskb.

      ADD 1 TO v_cont.
      v_segnam       = 'ZFII039_DS'.

      MOVE: ti_table-bukrs TO v_ZFII039_D-bukrs,
            ti_table-diskb TO v_ZFII039_D-diskb,
            ti_table-azdat TO v_ZFII039_D-azdat,
            ti_table-aznum TO v_ZFII039_D-aznum,
            ti_table-waers TO v_ZFII039_D-waers,
            ti_table-esbtr TO v_ZFII039_D-esbtr.

      edidd_rec-segnum = v_cont.
      edidd_rec-segnam = v_segnam.
      edidd_rec-mandt = sy-mandt.
      edidd_rec-sdata = v_ZFII039_D.
      APPEND edidd_rec TO it_edidd.

    ENDLOOP.

    CLEAR v_edidc.
    v_edidc-mestyp = v_msgtype.
    v_edidc-idoctp = v_idoctp.
    CLEAR v_edidc-rcvpfc.
    CLEAR v_edidc-sndpfc.
    CLEAR v_cont.

    CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
      EXPORTING
        master_idoc_control            = v_edidc
      TABLES
        communication_idoc_control     = it_edidc
        master_idoc_data               = it_edidd
      EXCEPTIONS
        error_in_idoc_control          = 01
        error_writing_idoc_status      = 02
        error_in_idoc_data             = 03
        sending_logical_system_unknown = 04.

    REFRESH it_edidc.
    REFRESH it_edidd.

ENDLOOP. "Por cada registro en la cabecera
endform.                    " enviar_idocs

Declaraciones

DATA: v_edidc    LIKE edidc,
      v_msgtype LIKE tbdme-mestyp,
      v_segnam   LIKE edidd-segnam,
      v_idoctp   LIKE bdaledc-idoctp,
      v_cont     TYPE i.

* Variables para ALV
DATA:
lv_fieldcat TYPE slis_t_fieldcat_alv,
lv_layout    TYPE slis_layout_alv,
lv_repid     TYPE sy-repid,
lv_sorted    TYPE slis_t_sortinfo_alv,
t_events     TYPE slis_t_event,         " Eventos.
gt_header    TYPE slis_t_listheader,    " Tabla con el Titulo
gt_sort      TYPE slis_t_sortinfo_alv, "tabla con orden y subtot
wa_header    TYPE slis_listheader.      " Work Area con el Titulo

TYPES: BEGIN OF TYPE_FEBKO,
         HKONT TYPE FEBKO-HKONT, "Cuenta
         BUKRS TYPE FEBKO-BUKRS, "Sociedad
         AZDAT TYPE FEBKO-AZDAT, "Fecha extracto
         AZNUM TYPE FEBKO-AZNUM, "Numero extracto
         WAERS TYPE FEBKO-WAERS, "Moneda
         ESBTR TYPE FEBKO-ESBTR, "Importe
         ESVOZ TYPE FEBKO-ESVOZ, "Debe/Haber
         HBKID TYPE FEBKO-HBKID, "Banco
         HKTID TYPE FEBKO-HKTID, "Cuenta
         EFART TYPE FEBKO-EFART, "Tipo extracto M o E
         DISKB TYPE T035D-DISKB, "Codigo
       END OF TYPE_FEBKO.

TYPES: BEGIN OF TYPE_HEADER,
         BUKRS TYPE FEBKO-BUKRS, "Sociedad
         DISKB TYPE T035D-DISKB, "Codigo
       END OF TYPE_HEADER.

DATA: TI_FEBKO TYPE STANDARD TABLE OF TYPE_FEBKO.
DATA: TI_FEBKO_AUX TYPE STANDARD TABLE OF TYPE_FEBKO WITH HEADER LINE.
DATA: TI_TABLE TYPE STANDARD TABLE OF TYPE_FEBKO WITH HEADER LINE.
DATA: TI_HEADER TYPE STANDARD TABLE OF TYPE_HEADER WITH HEADER LINE.

DATA: WA_FEBKO TYPE TYPE_FEBKO.
DATA: WA_FEBKO_AUX TYPE TYPE_FEBKO.

DATA: v_ZFII039_H LIKE ZFII039_H,
      v_ZFII039_D LIKE ZFII039_D.

DATA: it_edidd TYPE STANDARD TABLE OF edidd,
           it_edidc TYPE STANDARD TABLE OF edidc.

FIMA_DAYS_AND_MONTHS_AND_YEARS

2008-12-10T17:06:00.003-02:00

Esta función nos devuelve la diferencia en dias, meses y años entre dos fechas.

    CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
      EXPORTING
        i_date_from          = s_badat2-low
        i_date_to            = s_badat2-high
     IMPORTING
        e_days               = gv_dias2
*       E_MONTHS             =
*       E_YEARS              =

Refrescar un ALV luego de una Ejecuación de proceso que modifica la tabla interna

2008-12-10T17:06:00.001-02:00

Cuando en un ALV tenemos algún botón que ejecute un Batch Input o algún, proceso al Salvar y la información de la tabla interna del ALV debe refrescarse, para reflejar el proceso ejecutado, podemos usar este peqúeño truco.

*&---------------------------------------------------------------------*
*&      Form PF_USER_COMMAND
*&---------------------------------------------------------------------*
FORM user_command1 USING p_okcode LIKE sy-ucomm        "ok-code
                       w_selfield TYPE slis_selfield. "estruct. de linea
* Se selecciona que el ALV se actualice al mostrarse.

w_selfield-refresh = 'X'.

CASE p_okcode.

WHEN '&DATA_SAVE'.
    PERFORM arma_datos_bapi_1.
      IF g_cant_error IS INITIAL. "ROGI08102008
        PERFORM ejecutar_bapi1.
      ENDIF.                      "ROGI08102008
ENDCASE.

ENDFORM.                    " PF_STATUS

En el USER_COMMAND Form agregamos lo que esta en negrita, esto hace que al ejecutar un botón del ALV se refresque la tabla interna, por lo tanto podemos directamente modificar la tabla interna a nuestro gusto que se vera refrejado en el ALV.

IWO1_ORDER_BADI - Badi de IW31,IW32

2008-11-04T17:53:00.001-02:00

Badi que se dispara en la tx IW31 e IW32.

MD_PEGGING_NODIALOG - Ordenes que posee una Solped

2008-11-04T16:38:00.001-02:00

Devuelve las ordenes que están asociadas a una solped.

Ej:Bloque en el cual por cada solped encontrada para determinado Material-Centro busco las ordenes que están asociadas a esa solped.

DATA: lt_mdpsx TYPE STANDARD TABLE OF mdps,
      ls_mdpsx TYPE mdps,
      LT_MDRQX TYPE STANDARD TABLE OF mdrq,
      ls_mdrqx TYPE mdrq,
      l_fixkz TYPE EBAN-fixkz,
      l_msg(100),
      l_solped TYPE MDPS-DEL12,
      l_aufnr TYPE AUFK-AUFNR.

*    *** Veo todas las solicitudes de pedidos en las que se encuentra el componente
CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'
EXPORTING
        matnr                          = ls_resbd-MATNR
        werks                          = ls_resbd-WERKS
TABLES
        MDPSX                          = lt_MDPSX[]
EXCEPTIONS
        MATERIAL_PLANT_NOT_FOUND       = 1
        PLANT_NOT_FOUND                = 2
OTHERS                         = 3.
IF sy-subrc = 0.
*    *** Veo todas las ordenes asociadas con las solpeds.
LOOP AT lt_MDPSX INTO ls_mdpsx WHERE DELKZ = 'BA' AND FIX01 = 'X'.
CLEAR l_solped.
      l_solped = ls_mdpsx-DELNR.
CALL FUNCTION 'MD_PEGGING_NODIALOG'
EXPORTING
          edelkz                      = 'BA'
          edelnr                      = l_solped "lt_MDPSX-DELNR
          EDELPS                      = ls_mdpsx-DELPS
          ematnr                      = ls_resbd-MATNR
          ewerks                      = ls_resbd-WERKS
tables
          imdrqx                      = LT_MDRQX[]
EXCEPTIONS
         ERROR                       = 1
         NO_REQUIREMENTS_FOUND       = 2
         ORDER_NOT_FOUND             = 3
OTHERS                      = 4.

MD_STOCK_REQUIREMENTS_LIST_API - Lista de Solped por Componente

2008-11-04T16:31:00.001-02:00

Le pasamos Material y Centro y nos devuelve todas las Solped en las que ese componente se encuentra.

DATA: lt_mdpsx TYPE STANDARD TABLE OF mdps,
ls_mdpsx TYPE mdps.

* *** Veo todas las solicitudes de pedidos en las que se encuentra el componente
CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'
EXPORTING
        matnr                          = ls_resbd-MATNR
        werks                          = ls_resbd-WERKS
TABLES
        MDPSX                          = lt_MDPSX[]
EXCEPTIONS
        MATERIAL_PLANT_NOT_FOUND       = 1
        PLANT_NOT_FOUND                = 2
OTHERS                         = 3.

Extraer estructura de pantalla desde una BADI

2008-11-04T16:29:00.001-02:00

Con esta forma, peculiar, podemos levantar datos de pantalla. No me puse a investigarlo a fondo porque no tenía tiempo. Según tengo entendido tmb sirve para levantar hasta tablas internas.

En este caso levanto la estructura resbd de la tx IW32.

DATA:l_field(60)         TYPE C VALUE '(SAPLCOIH)RESBD',
          ls_resbd                 TYPE resbd.

FIELD-SYMBOLS: <fs_resbd>          TYPE ANY.
*      Fetching the Component Item from the Screen. This is for read-only
*      purpose and content should not be changed.
ASSIGN (l_field) to <fs_resbd>.
if sy-subrc eq 0.
      ls_resbd = <fs_resbd>.
      UNASSIGN <fs_resbd>.
endif.

Manejo de Mensajes en BSP

2008-05-27T10:03:00.001-03:00

El elemento a usar es <phtmlb:messageBar>

<phtmlb:messageBar id = "messageBar"
type = "<%= gv_severity_str %>"
text = "<%= gv_message %>"/>

TYPE puede ser ERROR/WARNING/OK/STOP/LOADING/NONE/TEXT.

ERROR-STOP:

WARNING:

OK:

LOADING: se mueve circularmente

TEXT: Solo sale texto no se muestra icono.

NONE:

No sale el display por pantalla.

En el inputProcessing donde deseemos setear o cambiar el mensaje o Tipo.

gv_message = 'Usuario encontrado'.
gv_severity_str = 'OK'.

Estructura SFSY

2008-04-17T12:36:00.001-03:00

Similar a la estructura SYST posee información propia del smartforms que podemos ver en tiempo de ejecución.

PAGE
Número/Cantidad páginas

FORMPAGES
Ctd.total páginas formularios

JOBPAGES
Ctd.total páginas job de salida

COPYCOUNT
Contador de copias ( 1 = original, 2 = 1ª copia, ...)

COPYCOUNT0
Contador de copias (0 = original, 1 = 1ª copia...)

DATE
Fecha y hora, fecha (servidor de aplicaciones) actual

TIME
Fecha y hora, hora (servidor de aplicaciones) actual

SUBRC
Código retorno, código retorno tras sentencias ABAP

USERNAME
Sistema SAP, nombre de acceso del usuario

PAGENAME
Nombre página + Variante

WINDOWNAME
Nombre ventana + Variante

XSF
Salida XSF activa/inactiva

XDF
Smart Forms SAP: Salida activa XDF

XDF2
Smart Forms SAP: Salida activa XDF

Como buscar BADIs

2008-04-17T12:24:00.001-03:00

Para buscar las badis que pasan en algún momento dado. Debemos poner un break point en la Clase. SE24 -> CL_EXITHANDLER

Doble click en el método GET_INSTANCE.

Poner un break en la llamada del metodo get_class_name_by_interface.

METHOD get_instance.

CLASS cl_badi_flt_data_trans_and_db DEFINITION LOAD.

DATA: exit TYPE REF TO object,
        type_ref TYPE REF TO cl_abap_typedescr,
        class_name TYPE seoclsname,
        abs_type_classname TYPE string,
        def_impl TYPE seex_boolean VALUE seex_false.

CALL METHOD cl_exithandler=>get_class_name_by_interface
    EXPORTING
      instance                      = instance
    IMPORTING
      class_name                    = class_name
    CHANGING
      exit_name                     = exit_name
    EXCEPTIONS
      no_reference                  = 1
      no_interface_reference        = 2
      no_exit_interface             = 3
      data_incons_in_exit_managem   = 4
      class_not_implement_interface = 5
      OTHERS                        = 6.

Cuando salte el break point hay que ver el valor de exit_name, ahi pasarán todos los nombres de las BADIS. en la SE18 encontramos esos nombres, en la SE19 se implementa.

Otra forma para buscar las BADI, es buscando por Paquete (clase de desarrollo) obtener el paquete de la tx que deseamos en la se93 -> visualizar tomamos el paquete y en la se18 después en la búsqueda ampliada buscamos por paquete y nos devuelve todas las BADIS del paquete.

Creación de IDOCs

2008-01-31T11:24:00.001-02:00

El menu WEDI e SALE sirve para la administración de IDOCs.

En la WE20 creamos el IDOC base. Un IDOC está formado por segmentos, con la estructura especifica de los campos a transladar, suele ser una de cabecera y otra posición.

Cuando tenemos el IDOC y el tipo de mensaje debemos relacionarlos para unirlos usamos la WE82.

En la WE02 podemos visualizar los IDOCs, ves su estado y contenido.

Dejo el código fuente de la parte de envió de IDOC de un programa que ya tiene en la tabla TI_HEADER los datos de cabecera y en TI_TABLE los datos de las posiciones.

form enviar_idocs .
DATA:        edidd_rec TYPE edidd.

v_msgtype = 'ZEXTBNK'. "Nombre de tipo de mensaje
v_idoctp = 'ZEXTBANK'. "Nombre de IDOC base
CLEAR v_cont.

* Por cada registro en la cabecera
LOOP AT ti_header. "INTO header_rec.

    ADD 1 TO v_cont.
    MOVE 'ZFII039_HS' TO v_segnam.

    MOVE: ti_header-bukrs TO v_ZFII039_H-bukrs,
          ti_header-DISKB TO v_ZFII039_H-DISKB.

    CLEAR edidd_rec.
    edidd_rec-segnum = v_cont.
    edidd_rec-segnam = v_segnam.
    edidd_rec-mandt = sy-mandt.
    edidd_rec-sdata = v_ZFII039_H.
    APPEND edidd_rec TO it_edidd.

    LOOP AT ti_table WHERE bukrs = ti_header-bukrs
                       AND diskb = ti_header-diskb.

      ADD 1 TO v_cont.
      v_segnam       = 'ZFII039_DS'.

      MOVE: ti_table-bukrs TO v_ZFII039_D-bukrs,
            ti_table-diskb TO v_ZFII039_D-diskb,
            ti_table-azdat TO v_ZFII039_D-azdat,
            ti_table-aznum TO v_ZFII039_D-aznum,
            ti_table-waers TO v_ZFII039_D-waers,
            ti_table-esbtr TO v_ZFII039_D-esbtr.

      edidd_rec-segnum = v_cont.
      edidd_rec-segnam = v_segnam.
      edidd_rec-mandt = sy-mandt.
      edidd_rec-sdata = v_ZFII039_D.
      APPEND edidd_rec TO it_edidd.

    ENDLOOP.

    CLEAR v_edidc.
    v_edidc-mestyp = v_msgtype.
    v_edidc-idoctp = v_idoctp.
    CLEAR v_edidc-rcvpfc.
    CLEAR v_edidc-sndpfc.
    CLEAR v_cont.

    CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
      EXPORTING
        master_idoc_control            = v_edidc
      TABLES
        communication_idoc_control     = it_edidc
        master_idoc_data               = it_edidd
      EXCEPTIONS
        error_in_idoc_control          = 01
        error_writing_idoc_status      = 02
        error_in_idoc_data             = 03
        sending_logical_system_unknown = 04.

    REFRESH it_edidc.
    REFRESH it_edidd.

ENDLOOP. "Por cada registro en la cabecera
endform.                    " enviar_idocs

Declaraciones

DATA: v_edidc    LIKE edidc,
      v_msgtype LIKE tbdme-mestyp,
      v_segnam   LIKE edidd-segnam,
      v_idoctp   LIKE bdaledc-idoctp,
      v_cont     TYPE i.

* Variables para ALV
DATA:
lv_fieldcat TYPE slis_t_fieldcat_alv,
lv_layout    TYPE slis_layout_alv,
lv_repid     TYPE sy-repid,
lv_sorted    TYPE slis_t_sortinfo_alv,
t_events     TYPE slis_t_event,         " Eventos.
gt_header    TYPE slis_t_listheader,    " Tabla con el Titulo
gt_sort      TYPE slis_t_sortinfo_alv, "tabla con orden y subtot
wa_header    TYPE slis_listheader.      " Work Area con el Titulo

TYPES: BEGIN OF TYPE_FEBKO,
         HKONT TYPE FEBKO-HKONT, "Cuenta
         BUKRS TYPE FEBKO-BUKRS, "Sociedad
         AZDAT TYPE FEBKO-AZDAT, "Fecha extracto
         AZNUM TYPE FEBKO-AZNUM, "Numero extracto
         WAERS TYPE FEBKO-WAERS, "Moneda
         ESBTR TYPE FEBKO-ESBTR, "Importe
         ESVOZ TYPE FEBKO-ESVOZ, "Debe/Haber
         HBKID TYPE FEBKO-HBKID, "Banco
         HKTID TYPE FEBKO-HKTID, "Cuenta
         EFART TYPE FEBKO-EFART, "Tipo extracto M o E
         DISKB TYPE T035D-DISKB, "Codigo
       END OF TYPE_FEBKO.

TYPES: BEGIN OF TYPE_HEADER,
         BUKRS TYPE FEBKO-BUKRS, "Sociedad
         DISKB TYPE T035D-DISKB, "Codigo
       END OF TYPE_HEADER.

DATA: TI_FEBKO TYPE STANDARD TABLE OF TYPE_FEBKO.
DATA: TI_FEBKO_AUX TYPE STANDARD TABLE OF TYPE_FEBKO WITH HEADER LINE.
DATA: TI_TABLE TYPE STANDARD TABLE OF TYPE_FEBKO WITH HEADER LINE.
DATA: TI_HEADER TYPE STANDARD TABLE OF TYPE_HEADER WITH HEADER LINE.

DATA: WA_FEBKO TYPE TYPE_FEBKO.
DATA: WA_FEBKO_AUX TYPE TYPE_FEBKO.

DATA: v_ZFII039_H LIKE ZFII039_H,
      v_ZFII039_D LIKE ZFII039_D.

DATA: it_edidd TYPE STANDARD TABLE OF edidd,
           it_edidc TYPE STANDARD TABLE OF edidc.

FIMA_DAYS_AND_MONTHS_AND_YEARS

2008-01-31T11:23:00.001-02:00

Esta función nos devuelve la diferencia en dias, meses y años entre dos fechas.

    CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
      EXPORTING
        i_date_from          = s_badat2-low
        i_date_to            = s_badat2-high
     IMPORTING
        e_days               = gv_dias2
*       E_MONTHS             =
*       E_YEARS              =

BAPI_COMPANYCODE_GET_PERIOD

2008-01-14T17:45:00.001-02:00

Esta función nos sirve para obtener el ejercicio desde una fecha dada, ya que algunas empresas no usan el año fiscal similar al calendario solar.

Parámetros:

Sociedad
Fecha

Base de datos lógicas - HR

2008-01-14T17:37:00.001-02:00

Las base de datos lógicas es una forma mas rápida de obtener datos, la base de datos lógica se compone de la pantalla de selección y de los datos en si. La metodología de búsqueda es de árbol.

En la SE36 podemos administrar la base de datos lógicas.

Dentro del código fuente nos damos cuenta del uso de base de datos lógicas al ver la instrucción GET.

GET PERNR.

Esta instrucción obtiene los datos y los carga en una estructura. Si nosotros queremos filtrarlos por algún campo de su estructura debemos usar la sentencia CHECK.

Dentro de una lógica de BDL. Podemos extrae información de los infotipos usando el comando PROVIDE - ENDPROVIDE. (similar al select común y corriente)

Para usar este comando hay que declarar los infotipos con la sentencia INFOTYPES.

INFOTYPES: 0001, "Asignación Organizacional
0002. "Datos de Personal

*Te va traiendo todos los registros del infotipo 0 comprendidos entre pn-begda y pn-endda. (Base de datos logica PNP)
PROVIDE * FROM p0000 BETWEEN pn-begd AND pn-endda.

...
ENDPROVIDE.

*Te trae los registros del inotipo 1 y 8 entre '19000101' '99991231' con cada corte.
PROVIDE gsber abkrs FROM p0001 FROM p0008 BETWEEN '19000101' AND '99991231'.
ENDPROVIDE.

*Esta macro te deja en la cabezera el ultimo registro del infotipo 1 comprendido entre esas fechas
rp-provide-from-last p0001 space pn-begda pn-endda.

*Para validar la correcta ejecusión de esta sentencia se usa:

IF PNP-SW-FOUND EQ '1'. "encontró un registro

...

ENDIF.

*Esta macro te deja en la cabezera el prime registro del infotipo 1 comprendido entre esas fechas
rp-provide-from-last p0001 space pn-begda pn-endda.

Ejemplo de LDB

*Start of Selection Event
*========================
START-OF-SELECTION.
*                                       "Retrieve Infotypes
GET PERNR.
*                                       "Get last IT 0000 record
  RP-PROVIDE-FROM-LAST P0000 SPACE PN-BEGDA PN-ENDDA.
*                                       "Check employee is active
  CHECK P0000-STAT2 IN PNPSTAT2.
*                                       "Retrieve Employee Name
  RP-PROVIDE-FROM-LAST P0002 SPACE PN-BEGDA PN-ENDDA.
*
  format color col_heading.
  Write : / 'Name       : ', p0002-inits(4), p0002-nachn(10),  80 '*',
          / 'NINO       : ', p0002-perid,                      80 '*',
          / 'Birth Date : ', p0002-gbdat,                      80 '*'.
  skip 1.
  format reset.
*
  perform process_repeating_group.
*
*End of Selection Event
*========================
END-OF-SELECTION.

Validaciones - OB28

2008-01-11T16:56:00.001-02:00

Las validaciones están regidas por Sociedad y por evento.

Evento:

Cabecera de documento
Posición de documento
Documento Completo

Grado de activ. significa si está activo o no (1 = ACTIVO)

Ahí vemos todos los pasos, cada uno con sus respectivas condiciones, verificaciones y mensajes.

En el caso de necesitar usar un user exit, en la solapa user exit. seleccionamos una y le damos al botón de visualizar código.

Necesitamos crear el modulo dentro del siguiente FORM

*----------------------------------------------------------------------*
*       FORM GET_EXIT_TITLES                                           *
*----------------------------------------------------------------------*
*       returns name and title of all available standard-exits         *
*       every exit in this formpool has to be added to this form.      *
*       You have to specify a parameter type in order to enable the    *
*       code generation program to determine correctly how to          *
*       generate the user exit call, i.e. how many and what kind of    *
*       parameter(s) are used in the user exit.                        *
*       The following parameter types exist:                           *
*                                                                      *
*       TYPE                Description              Usage             *
*    ------------------------------------------------------------      *
*       C_EXIT_PARAM_NONE   Use no parameter         Subst. and Valid. *
*                           except B_RESULT                            *
*       C_EXIT_PARAM_CLASS Use a type as parameter Subst. and Valid *
*----------------------------------------------------------------------*
* --> EXIT_TAB table with exit-name and exit-titles                 *
*                 structure: NAME(5), PARAM(1), TITEL(60)
*----------------------------------------------------------------------*
FORM get_exit_titles TABLES etab.

DATA: BEGIN OF exits OCCURS 50,
          name(5)   TYPE c,
          param     LIKE c_exit_param_none,
          title(60) TYPE c,
        END OF exits.
*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
* PLEASE DELETE THE FIRST '*' FORM THE BEGINING OF THE FOLLOWING LINES *
*        IF THE ACCOUNTING MODULE IS INSTALLED IN YOUR SYSTEM:         *
* EXITS-NAME = 'U101'.
* EXITS-PARAM = C_EXIT_PARAM_CLASS.
* EXITS-TITLE = TEXT-100.                 "Posting date check
* APPEND EXITS.

exits-name = 'U100'.
exits-param = c_exit_param_none.        "Complete data used in exit.
exits-title = text-101.                 "Posting date check
APPEND exits.

REFRESH etab.
LOOP AT exits.
    etab = exits.
    APPEND etab.
ENDLOOP.

ENDFORM.                    "GET_EXIT_TITLES

Ahora creamos la subrutina U100

*---------------------------------------------------------------------*
* form U941 *
*---------------------------------------------------------------------*
* Valida las retenciones de la clase de doc.
*---------------------------------------------------------------------*
* <-- b_result t = true f = false *
*---------------------------------------------------------------------*
FORM U941 USING B_RESULT.
DATA: l_ind TYPE WITH_ITEM-WT_WITHCD VALUE 'RB'.

B_RESULT = B_TRUE.
SELECT SINGLE * FROM WITH_ITEM
          WHERE WT_WITHCD = l_ind.

IF sy-subrc <> 0.
    B_RESULT = B_FALSE.
* Mensaje de error
    MESSAGE E067(z1) WITH BKPF-BLART l_ind.
Endif.
CLEAR WITH_ITEM.
ENDFORM.

Si necesitamos crear SET ( rangos o juegos de datos) los creamos con la transacción GS01

Creamos el SET, guardamos y manualmente hay que agregarlo a Orden de transporte al igual que las validaciones.

Para transportar éstas hay que posicionarnos sobre la validación, Menu Validación -> Transportar.

Creación de BTE

2008-01-02T11:04:00.001-02:00

Tx FIBF

Investigar sobre los procesos,ésta opción nos tira todos los procesos.

Luego de elegir el que nos sirve hacemos click en Módulo funciones tipo.

Esto nos lleva a la se37 con el sample del proceso, el cual debemos copiar para ejecutar el nuestro con el código fuente que deseemos, pero antes debemos crear el "Producto" (sería algo así como el proyecto de ampliación de la CMOD)

Cuando creemos un producto nuevo, debemos tildar el checkbox que indica si está activado o no.

Luego creamos el "Módulo de proceso".

Acá es donde debemos poner la copia de la función ejemplo:

Ponemos el proceso (ampliación que debemos usar).
Ponemos la función de copia creada del original con nuestro código.
Elejimos el producto (el proyecto de ampliación creado anteriormente).

A modo informativo dejo en ingles las diferencias entre BADI y BTE y como buscar BTEs

Difference between BADI’s and BTE’s:
The concepts behind the Business Add-Ins enhancement technique and Open FI are basically the same. However, the two enhancement techniques do differ from each other in the following points:
Open FI can only be used to make program enhancements, that is, you can only enhance source code using Open FI. You cannot enhance user interface elements with Open FI like you can with Business Add-Ins.
Open FI assumes that enhancement will only take place on three levels (SAP - partners - customers), whereas with Business Add-Ins you can create and implement enhancements in as many software layers as you like.
Open FI uses function modules for program enhancements. With Business Add-Ins, ABAP Objects are used enhance programs.

Finding Business Transaction Events:
SAP Reference IMG -> Financial Accounting -> Financial Accounting Global Settings -> Business Transaction Events
• For Publish and Subscribe Interfaces, Environment - > Info system (P/S)
• For Process Interfaces, Environment -> Infosystem(Processes)
Find for Character String “OPEN_FI_PERFORM” in source code

Clave foránea compuesta con constante

2007-12-28T12:35:00.001-03:00

Si necesitamos crear una clave foránea compuesta porque el campo que deseamos validar no tiene una tabla de maestro y un valor es constante.

Debemos setearlo de la siguiente manera:

Info completa de un Sapscript

2007-11-22T11:45:00.001-03:00

Para ver toda la información de un Sapscript, es muy útil cuando queremos buscar algún campo en particular y no sabemos en que ventana se encuentra.

Costos de PS

2007-11-22T11:27:00.001-03:00

Es algo bastante típico que te pidan reportes de PS usando costos, reales, comprometidos, etc.

Resumiendo todo dato real, comprometido y presupuesto esta en la COSP y RPSCO (resumen de COSP)

A estas tablas hay que acceder por el OBJNR del elemento imputado:

Si es un grafo -> AUFK-OBJNR

Si es una operación -> AFVC-OBJNR (se ingresa por hoja de ruta que la podemos tomar de la CAUFV con el Número de grafo)

Textos en inglés que me ayudaron a resolver el tema:

The actual,budget and commitment values are stored in the one table COSP.
The values differentiate with field VRGNG - "CO Business Transaction".
If the record has in this field text 'COIN' it means that values are "actual".
For example:
OBJNR PR00000101
GJAHR 2005
KSTAR 101101
VRGNG COIN
TWEAR USD
WTG001 100,00
WTG002 200,00
...
It means that the element PR0000101 has the 'actual' operations refering
the cost element 101101, with values: 100,00 USD in january 2005 and
200,00 USD in february 2005.
The next row in the table COSP, clould look like this:
OBJNR PR00000101
GJAHR 2005
KSTAR 101101
VRGNG RMBA
TWEAR USD
WTG001 100,00
WTG002 0,00
...
This means that there was a 'Purchase requisition' in january 2005
with decretation on object PR0000101.
And the next row, could be:
OBJNR PR00000101
GJAHR 2005
KSTAR 101101
VRGNG RMBE
TWEAR USD
WTG001 0,00
WTG002 150,00
And that means that in february 2005 there was a 'Purchase order'
with value 150,00 USD decretated on this object.

------------------------------------------------------------------------------

RMBA is the "Purchase Requisition" (created in transaction ME51n)
RMBE is the "Purchase Order" (created in transaction ME21n).
But both of these operations sum into commitment.
RKP1 stands for "Plan", but depending on configuration,
one of plan's versions can be the budget.
For example you can say, that plan in version 0 is the budget.
The best it would be, if you perform the check on your system:
1. Choose one order that you know it has represetaives data in your raport s_alr...
2. Open table AUFK, and write down the 'object number'- field OBJNR.
3. Open table COSP, and select data for OBJNR, that you recived in previous step.
4. Check what values do you have in the field VRGNG.

------------------------------------------------------------------------------

Status bar Standard

2007-11-03T12:41:00.000-03:00

Si deseamos tener la status bar standard debemos setearla de la siguiente forma:

MODULE status_0100 OUTPUT.
SET PF-STATUS space.
SET PF-STATUS space.
ENDMODULE.

Tomar valores de un Pop Up

2007-10-31T11:05:00.000-03:00

A veces en la impresión de algun documento u alguna otra cosa, necesitamos un corte de control para ingresar un valor y usarlo para algo.

En este ejemplo se muestra como haces para realizar esto:

report zjacprueba.
data: V_NUMERO like sval OCCURS 0 WITH HEADER LINE..

V_NUMERO-TABNAME = 'MARA'. "Tabla de donde queremos coger el campo
V_NUMERO-fieldname = 'MATNR'. "Campo que queremos pedir por pantalla
APPEND V_NUMERO.
V_NUMERO-TABNAME = 'MARA'.
V_NUMERO-FIELDNAME = 'MTART'.
APPEND V_NUMERO.

CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
* NO_VALUE_CHECK = ' '
POPUP_TITLE = 'Complete los campos'
START_COLUMN = '5'
START_ROW = '5'
* IMPORTING
* RETURNCODE =
TABLES
FIELDS = V_NUMERO.
* EXCEPTIONS
* ERROR_IN_FIELDS = 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.
ENDIF.

LOOP AT V_NUMERO.
WRITE :/ V_NUMERO-VALUE. "Valor dado por pantalla.
ENDLOOP.

Buscador de User Exit por TCODE

2007-10-29T12:22:00.000-03:00

*&---------------------------------------------------------------------*
*& Report ZBUSCO_EXIT *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ZBUSCO_EXIT no standard page heading.
.
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
tables : tstct.
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.
parameters : p_tcode like tstc-tcode obligatory.

select single * from tstc where tcode eq p_tcode.
if sy-subrc eq 0.
select single * from tadir where pgmid = 'R3TR'
and object = 'PROG'
and obj_name = tstc-pgmna.
move : tadir-devclass to v_devclass.
if sy-subrc ne 0.
select single * from trdir where name = tstc-pgmna.
if trdir-subc eq 'F'.
select single * from tfdir where pname = tstc-pgmna.
select single * from enlfdir where funcname =
tfdir-funcname.
select single * from tadir where pgmid = 'R3TR'
and object = 'FUGR'
and obj_name eq enlfdir-area.

move : tadir-devclass to v_devclass.
endif.
endif.
select * from tadir into table jtab
where pgmid = 'R3TR'
and object = 'SMOD'
and devclass = v_devclass.
select single * from tstct where sprsl eq sy-langu and
tcode eq p_tcode.
format color col_positive intensified off.
write:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
skip.
if not jtab[] is initial.
write:/(95) sy-uline.
format color col_heading intensified on.
write:/1 sy-vline,
2 'Exit Name',
21 sy-vline ,
22 'Description',
95 sy-vline.
write:/(95) sy-uline.
loop at jtab.
select single * from modsapt
where sprsl = sy-langu and
name = jtab-obj_name.
format color col_normal intensified off.
write:/1 sy-vline,
2 jtab-obj_name hotspot on,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
endloop.
write:/(95) sy-uline.
describe table jtab.
skip.
format color col_total intensified on.
write:/ 'No of Exits:' , sy-tfill.
else.
format color col_negative intensified on.
write:/(95) 'No User Exit exists'.
endif.
else.
format color col_negative intensified on.
write:/(95) 'Transaction Code Does Not Exist'.
endif.

at line-selection.
get cursor field field1.
check field1(4) eq 'JTAB'.
set parameter id 'MON' field sy-lisel+1(10).
call transaction 'SMOD' and skip first screen.

*---End of Program

SAP NETWEAVER 2007s Trial

2007-10-29T01:29:00.000-03:00

Despues de instalar el trial y de hacerlo funcionar.

El siguiente reporte nos genera la data del caso de vuelo SFLIGHT.
SAPBC_DATA_GENERATOR

PACKAGE del trial:

SAP_ABAPWD
SWDP_DEMO_TUTORIALS Demo Tutorials for Web Dynpro ABAP
Z_ABAP_BOOK Training and Demo Programs - ABAP Book
Z_FLIGHTMODEL_WS Web services for flight model
Z_NSPPOSTINST NSP Post Installation Steps

SPELL_AMOUNT - Texto de importes

2007-10-28T23:56:00.000-03:00

CALL FUNCTION 'SPELL_AMOUNT'
EXPORTING
AMOUNT = L_ENTRADA "Indicar importe
CURRENCY = 'EUR' "Indicar moneda
LANGUAGE = SY-LANGU "Indicar idioma texto
IMPORTING
IN_WORDS = L_RESULTADO
EXCEPTIONS
NOT_FOUND = 1
TOO_LARGE = 2
OTHERS = 3

L_entrada es el importe que quieras traducir a letras. El resultado lo tendras en L_RESULTADO. Más detallado:
L_RESULTADO-WORD = parte entera
L_RESULTADO-IN_WORDS = parte decimal.

ALV - Catalogo

2007-10-28T23:37:00.001-03:00

ALV – Catálogo

ROW_POS:
Solo se informará este campo en el caso en el que el report de salida sea multilínea. Valores: 0, 1, 2 y 3.

COL_POS:
Solo es relevante en el caso que se quiera que la salida en el listado tenga un orden distinto a su posición en la tabla interna de datos.

TABNAME:
Nombre de la tabla interna que contiene los datos a mostrar en el listado.

REF_FIELDNAME:
Nombre del campo de la tabla del diccionario de datos al cual está referenciado el campo de la tabla interna (en el caso en el que lo esté).

CFIELDNAME:
Nombre del campo de la tabla interna de datos que contiene la moneda para el campo importe.

CTABNAME:
Este dato sólo es relevante informarlo para listados con más de una cabecera.

QFIELDNAME:
Nombre del campo de la tabla interna de datos que contiene la unidad de medida para el campo cantidad.

QTABNAME:
Este dato solo es relevante informarlo para listados con más de una cabecera.

OUTPUTLEN:
Siempre que el campo a mostrar en el listado de salida no esté referenciado a ningún campo de tabla del diccionario, se especificará aquí la longitud de salida del campo.

KEY:
El campo del registro actual se tomará como clave si se marca este campo. No podrá ocultarse en el listado de salida este campo.

KEY_SEL:
El campo será clave, pero podrá no salir en el listado de salida.

NO_OUT:
El campo no será mostrado en el listado de salida.

TECH:
Si se marca este campo, el campo actual no puede nunca salir en el listado de salida.

EMPHASIZE:
Para mostrar el campo de algún color.

HOTSPOT:
El campo aparece como hotspot.

FIX_COLUMN:
Si se marca, este campo aparecería como columna fija.

DO_SUM:
Se calculará la suma de este campo.

NO_SUM:
No se calculará la suma de este campo.

ICON:
El campo será mostrado como un icono.

SYMBOL:
El campo será mostrado como un símbolo.

JUST:
Justificación del campo. R= justificado a la derecha, L= justificado a la izquierda, C= centrado.

LZERO:
Mostrará los campos de tipo NUMC justificados a la derecha y sin ceros a la izquierda.

NO_SIGN:
Mostrará el campo sin signos.

NO_ZERO:
Suprime los 0’s.

EDIT_MASK:
Mostrará el campo con una máscara.

SELTEXT_L:
Se mostrará en la cabecera de la columna el texto largo de la definición del campo en la tabla del diccinario de datos.

SELTEXT_M:
Se mostrará en la cabecera de la columna el texto medio de la definición del campo en la tabla del diccinario de datos.

SELTEXT_S:
Se mostrará en la cabecera de la columna el texto corto de la definición del campo en la tabla del diccinario de datos.

DDICTXT:
Especificará mediante L, M y S el texto largo, medio o corto que se utilizará en los títulos de las cabeceras.

DATATYPE:
Se especificará cuando el campo de la tabla interna de datos no esté referenciado a ningún campo de tabla del diccionario de datos.

DDIC_OUTPUTLEN:
Especifica la longitud de salida. Para campos no referenciados al diccionario de datos.

SP_GROUP:
Si se marca este campo, el campo actual pertenecerá a un grupo que se especificará después en el parámetro IT_SPECIAL_GROUPS.

REPREP:
El campo será tomado como un criterio de selección

Campo password (oculto) en reporte

2007-10-28T23:24:00.000-03:00

Si se desea mostrar un como de entrada como texto oculto, o como un campo de password (ej. carácteres '****') debe insertar un código similar al siguiente ejemplo:

PARAMETERS: P_PASSWD(8) MODIF ID MiTexto. <--- "MiTexto" es un ID de grupo
...
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'MiTexto'. "Comprueba si el ID es = al que queremos que se oculteSCREEN-INVISIBLE = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
END-OF-SELECTION.

Wildcard

2007-10-28T23:22:00.000-03:00

Wildcard para busquedas.

z* Que comienzan con z
*sale* Que contienen el string sale, tal como rvsale07
*f+ Que contienen una f como el carácter penúltimo, tal como rmlogifa
rp+++sch Que comienzan con rp, terminan en sch y contienen tres caracteres
cualesquiera entre medio, tal como rp012sch o rpinvsch

Llamar aplicación externa de SAP

2007-10-28T23:20:00.000-03:00

WS_EXECUTE permite ejecutar el programa externo de SAP, permite pasar parámetros.

CALL FUNCTION 'WS_EXECUTE'
EXPORTING
* DOCUMENT = ' '
* CD = ' '
COMMANDLINE = ' -min -a c:destino.zip c:1.txt c:2.txt'
* INFORM = ' '
PROGRAM = 'winzip32.exe'
* STAT = ' '
* WINID = ' '
* OSMAC_SCRIPT = ' '
* OSMAC_CREATOR = ' '
* WIN16_EXT = ' '
* EXEC_RC = ' '
* IMPORTING
* RBUFF =
* EXCEPTIONS
* FRONTEND_ERROR = 1
* NO_BATCH = 2
* PROG_NOT_FOUND = 3
* ILLEGAL_OPTION = 4
* GUI_REFUSE_EXECUTE = 5
* OTHERS = 6
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

System values

2007-10-28T23:15:00.000-03:00

Para cuando no se tenga acceso a la se11

SY-INDEX Number of loop passes
SY-PAGNO Runtime: Current page in list
SY-TABIX Runtime: Current line of an internal table
SY-TFILL Current number of entries in internal table
SY-TLOPC Internal use
SY-TMAXL Maximum number of entries in internal table
SY-TOCCU OCCURS parameter with internal tables
SY-TTABC Number of line last read in an internal table
SY-TSTIS Internal use
SY-TTABI Offset of internal table in roll area
SY-DBCNT Number of elements in edited dataset with DB operations
SY-FDPOS Location of a string
SY-COLNO Current column during list creation
SY-LINCT Number of list lines
SY-LINNO Current line for list creation
SY-LINSZ Line size of list
SY-PAGCT Page size of list from REPORT statement
SY-MACOL Number of columns from SET MARGIN
SY-MAROW No. of lines from SET MARGIN statement
SY-TLENG Line width of an internal table
SY-SFOFF Internal use
SY-WILLI Number of current window line
SY-LILLI Number of current list line
SY-SUBRC Return value after specific ABAP/4 statements
SY-FLENG Internal use (field length)
SY-CUCOL Cursor position (column)
SY-CUROW Cursor position (line)
SY-LSIND Number of secondary list
SY-LISTI Number of current list line
SY-STEPL Number of LOOP line at screen step
SY-TPAGI Flag indicating roll-out of internal table to paging area
SY-WINX1 Window coordinate (column left)
SY-WINY1 Window coordinate (line left)
SY-WINX2 Window coordinate (column right)
SY-WINY2 Window coordinate (line right)
SY-WINCO Cursor position in window (column)
SY-WINRO Cursor position in window (line)
SY-WINDI Index of current window line
SY-SROWS Lines on screen
SY-SCOLS Columns on screen
SY-LOOPC Number of LOOP lines at screen step loop
SY-FOLEN Internal use (field output length)
SY-FODEC Internal use (field decimal places)
SY-TZONE Time difference from 'Greenwich Mean Time' (UTC) in seconds
SY-DAYST Summertime active ? ('daylight saving time')
SY-FTYPE Internal use (field type)
SY-APPLI SAP applications
SY-FDAYW Factory calendar weekday
SY-CCURS Rate specification/result field (CURRENCY CONVERT)
SY-CCURT Table rate from currency conversion
SY-DEBUG Internal use
SY-CTYPE Exchange rate type 'M','B','G' from CURRENCY CONVERSION
SY-INPUT Internal use
SY-LANGU SAP logon language key
SY-MODNO Number of alternative modi
SY-BATCH Background active (X)
SY-BINPT Batch input active (X)
SY-CALLD CALL mode active (X)
SY-DYNNR Number of current screen
SY-DYNGR Screen group of current screen
SY-NEWPA Internal use
SY-PRI40 Internal use
SY-RSTRT Internal use
SY-WTITL Standard page header indicator
SY-CPAGE Current page number
SY-DBNAM Logical database for ABAP/4 program
SY-MANDT Client number from SAP logon
SY-PREFX ABAP/4 prefix for background jobs
SY-FMKEY Current function code menu
SY-PEXPI Print: Spool retention period
SY-PRINI Internal use
SY-PRIMM Print: Print immediately
SY-PRREL Print: Delete after printing
SY-PLAYO Internal use
SY-PRBIG Print: Selection cover sheet
SY-PLAYP Internal use
SY-PRNEW Print: New spool request (list)
SY-PRLOG Internal use
SY-PDEST Print: Output device
SY-PLIST Print: Name of spool request (list name)
SY-PAUTH Internal use
SY-PRDSN Print: Name of spool dataset
SY-PNWPA Internal use
SY-CALLR Print: ID for print dialog function
SY-REPI2 Internal use
SY-RTITL Print: Report title of program to be printed
SY-PRREC Print: Recipient
SY-PRTXT Print: Text for cover sheet
SY-PRABT Print: Department on cover sheet
SY-LPASS Internal use
SY-NRPAG Internal use
SY-PAART Print: Format
SY-PRCOP Print: Number of copies
SY-BATZS Background SUBMIT: Immediately
SY-BSPLD Background SUBMIT: List output to spool
SY-BREP4 Background SUBMIT: Root name of request report
SY-BATZO Background SUBMIT: Once
SY-BATZD Background SUBMIT: Daily
SY-BATZW Background SUBMIT: Weekly
SY-BATZM Background SUBMIT: Monthly
SY-CTABL Exchange rate table from currency conversion
SY-DBSY-S System: Database system
SY-DCSY-S System: Dialog system
SY-MACDB Program: Name of file for matchcode access
SY-SY-SID System: SAP system ID
SY-OPSY-S System: Operating system
SY-PFKEY Runtime: Current F key status
SY-SAPRL System: SAP Release
SY-TCODE Session: Current transaction code
SY-UCOMM Interact.: Command field function entry
SY-CFWAE Internal use
SY-CHWAE Internal use
SY-SPONO Runtime: Spool number for list output
SY-SPONR Runtime: Spool number from TRANSFER statement
SY-WAERS T001: Company code currency after reading B segment
SY-CDATE Date of rate from currency conversion
SY-DATUM system: Date
SY-SLSET Name of selection set
SY-SUBTY ABAP/4: Call type for SUBMIT
SY-SUBCS Internal: CALL status of program
SY-GROUP Internal: Bundling
SY-FFILE Internal: Flat file (USING/GENERATING DATASET)
SY-UZEIT system: Time
SY-DSNAM Runtime: Name of dataset for spool output
SY-REPID Program: Name of ABAP/4 program
SY-TABID Internal use
SY-TFDSN Runtime: Dataset for data extracts
SY-UNAME Session: SAP user from SAP logon
SY-LSTAT Interact.: Status information for each list level
SY-ABCDE Constant: Alphabet (A,B,C,...)
SY-MARKY Current line character for MARK
SY-SFNAM No longer used
SY-TNAME Name of internal table after an access
SY-MSGLI Interact.: Message line (line 23)
SY-TITLE Title of ABAP/4 program
SY-ENTRY Internal use
SY-LISEL Interact.: Selected line
SY-ULINE Constant: Underline (---------...)
SY-XCODE Extended command field
SY-CPROG Runtime: Main program
SY-XPROG Internal use (system-EXIT program)
SY-XFORM Internal use (system-EXIT form)
SY-LDBPG Program: ABAP/4 database program for SY--DBNAM
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-TVAR Runtime: Text variable for ABAP/4 text elements
SY-MSGID Message ID
SY-MSGTY Message type (E,I.W,...)
SY-MSGNO Message number
SY-MSGV Message variable
SY-MSGV Message variable
SY-MSGV Message variable
SY-MSGV Message variable
SY-ONCOM Internal: ON COMMIT flag
SY-VLINE Constant: Vertical bar
SY-WINSL Interact.: Selected window line
SY-STACO Interact.: List displayed from column
SY-STARO Interact.: Page displayd from line
SY-DATAR Flag: Data received
SY-HOST Host
SY-STLOCDB Local database exists
SY-STLOCOP Local database operation
SY-STDATLO Local date for user
SY-STTIMLO Local time for user
SY-STTSTLO Timestamp (date and time) for user
SY-STZONLO Time zone of user
SY-STDATUT Global date related to UTC (GMT)
SY-STTIMUT Global time related to UTC (GMT)
SY-STTSTUT Timestamp (date and time) related to UTC (GMT)

PopUp de texto a Usuario

2007-10-28T23:13:00.000-03:00

CALL FUNCTION 'TH_POPUP'
EXPORTING
CLIENT = SY-MANDT
USER = USR_TABL-BNAME
MESSAGE = MESSAGE
EXCEPTIONS
USER_NOT_FOUND = 1.

Buscar un string en todos los programas

2007-10-28T23:08:00.000-03:00

RSRSCAN1 - Search a String in all programs, and the list of hits in the program.

Condición lógica de Strings

2007-10-28T23:07:00.001-03:00

CO Contiene sólo.
CN No contiene sólo.
CA Contiene algún.
NA No contiene algún.
CS Contiene el string.
NS No contiene el string.
CP Contiene el pattern.
‘*’ cualquier número de caracteres.
‘+’ cualquier carácter.
‘#’
NP No contiene el pattern.
‘*’ cualquier número de caracteres.
‘+’ cualquier carácter.
‘#’

Download programa a un directorio

2007-10-28T23:04:00.000-03:00

*----------------------------------------------------------------------*
* Report: ZKBPROGS *
*----------------------------------------------------------------------*
* Function : Up/Download ABAP reports complete with texts *
*----------------------------------------------------------------------*
* Change Log : *
* July 5, 1999 *
* - Combined existing programs that did the upload and download into*
* - one program. *
* - Changed format that the reports are saved in to be compatible *
* with Wolfgang Morgenthaler's upload/download program(YSTRASN00 *
* at www.antarcon.de). Major differences between this program and*
* Wolfgang's are:
* - this program does not update TRDIR with the *
* TRDIR entries that are in the program uploaded. Instead, *
* current users stats are used. *
* - this program allows selection of reports from a list or *
* a single report can be tuped in and uploaded *
* - this program also updates TADIR so that a development class*
* is assigned to the program *
* - this program checks to see if the program already has a *
* TRDIR entry, and if it does, warns the user *
* - this program will save/restore the program documenation too*
* *
* *
* *
*----------------------------------------------------------------------*
REPORT ZKBPROGS
NO STANDARD PAGE HEADING
LINE-SIZE 255.
*----------------------------------------------------------------------*
* Declare Database Objects *
*----------------------------------------------------------------------*
tables:
DOKIL,
TRDIR.
*----------------------------------------------------------------------*
* Constants*
CONSTANTS:
MC_TRDIR_IDENTIFIER(72) TYPE C VALUE '%&%& RDIR',
MC_REPORT_IDENTIFIER(72) TYPE C VALUE '%&%& REPO',
MC_TEXT_IDENTIFIER(72) TYPE C VALUE '%&%& TEXP',
MC_THEAD_IDENTIFIER(72) TYPE C VALUE '%&%& HEAD',
MC_DOC_IDENTIFIER(72) TYPE C VALUE '%&%& DOKL',
MC_TRDIR_SHORT(4) TYPE C VALUE 'RDIR',
MC_REPORT_SHORT(4) TYPE C VALUE 'REPO',
MC_TEXT_SHORT(4) TYPE C VALUE 'TEXP',
MC_THEAD_SHORT(4) TYPE C VALUE 'HEAD',
MC_DOC_SHORT(4) TYPE C VALUE 'DOKP'.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* Declare Module level data structures *
*----------------------------------------------------------------------*
DATA: BEGIN OF MTAB_PROGRAM_SOURCE OCCURS 0,
LINE(72) TYPE C,
END OF MTAB_PROGRAM_SOURCE.
DATA: MTAB_PROGRAM_TRDIR LIKE TRDIR OCCURS 0 WITH HEADER LINE.
DATA: MTAB_PROGRAM_TEXTS LIKE TEXTPOOL OCCURS 0 WITH HEADER LINE.
DATA: MSTR_THEAD LIKE THEAD.
DATA: BEGIN OF MTAB_PROGRAM_FILE OCCURS 0,
LINE(275) TYPE C,
END OF MTAB_PROGRAM_FILE.
DATA: BEGIN OF MTAB_DIRECTORY OCCURS 0,
NAME LIKE TRDIR-NAME,
DESC(72) TYPE C,
SAVENAME LIKE RLGRAP-FILENAME,
END OF MTAB_DIRECTORY.
DATA: BEGIN OF MTAB_PROGRAM_DOCUMENTATION OCCURS 0,
LINE(255) TYPE C,
END OF MTAB_PROGRAM_DOCUMENTATION.
*----------------------------------------------------------------------*
* Selection Screen *
*----------------------------------------------------------------------*
*-- Options for upload/download of programs
SELECTION-SCREEN BEGIN OF BLOCK FRM_OPTIONS WITH FRAME TITLE TEXT-UDL.
PARAMETERS:
RB_DOWN RADIOBUTTON GROUP UDL DEFAULT 'X'. " Download reports
SELECTION-SCREEN BEGIN OF BLOCK FRM_TRDIR WITH FRAME TITLE TEXT-DIR.
SELECT-OPTIONS:
S_NAME FOR TRDIR-NAME, " Program Name
S_SUBC FOR TRDIR-SUBC " Program Type
DEFAULT 'F' OPTION EQ SIGN E," Exclude Functions by default
S_CNAM FOR TRDIR-CNAM " Created by
DEFAULT SY-UNAME,
S_UNAM FOR TRDIR-UNAM, " Last Changed by
S_CDAT FOR TRDIR-CDAT, " Creation date
S_UDAT FOR TRDIR-UDAT. " Last update date
SELECTION-SCREEN END OF BLOCK FRM_TRDIR.
*-- Options for uploading programs
PARAMETERS:
RB_UP RADIOBUTTON GROUP UDL. " Upload reports
SELECTION-SCREEN BEGIN OF BLOCK FRM_UPLOAD WITH FRAME TITLE TEXT-UPL.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(29) TEXT-SNG.
PARAMETERS:
RB_FILE RADIOBUTTON GROUP HOW DEFAULT 'X'.
SELECTION-SCREEN COMMENT 33(42) TEXT-FNA.
SELECTION-SCREEN END OF LINE.
PARAMETERS:
RB_LIST RADIOBUTTON GROUP HOW.
SELECTION-SCREEN END OF BLOCK FRM_UPLOAD.
SELECTION-SCREEN END OF BLOCK FRM_OPTIONS.
*-- Options for up/downloading programs
SELECTION-SCREEN BEGIN OF BLOCK FRM_FILEN WITH FRAME TITLE TEXT-FIL.
PARAMETERS:
RB_DOS RADIOBUTTON GROUP FIL DEFAULT 'X', " Save to local
RB_UNIX RADIOBUTTON GROUP FIL, " Save to UNIX
P_PATH LIKE RLGRAP-FILENAME " Path to save files to
DEFAULT 'c:\temp\'.
SELECTION-SCREEN END OF BLOCK FRM_FILEN.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-LOW.
CALL FUNCTION 'F4_PROGRAM'
EXPORTING
OBJECT = S_NAME-LOW
SUPPRESS_SELECTION = 'X'
IMPORTING
RESULT = S_NAME-LOW
EXCEPTIONS
OTHERS = 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_NAME-HIGH.
CALL FUNCTION 'F4_PROGRAM'
EXPORTING
OBJECT = S_NAME-HIGH
SUPPRESS_SELECTION = 'X'
IMPORTING
RESULT = S_NAME-HIGH
EXCEPTIONS
OTHERS = 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-LOW.
PERFORM GET_NAME USING 'S_UNAM-LOW'
CHANGING S_UNAM-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_UNAM-HIGH.
PERFORM GET_NAME USING 'S_UNAM-HIGH'
CHANGING S_UNAM-HIGH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-LOW.
PERFORM GET_NAME USING 'S_CNAM-LOW'
CHANGING S_CNAM-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_CNAM-HIGH.
PERFORM GET_NAME USING 'S_CNAM-HIGH'
CHANGING S_CNAM-HIGH.
TOP-OF-PAGE.
IF RB_LIST = 'X'.
FORMAT COLOR COL_HEADING.
NEW-LINE.
WRITE: AT 3 TEXT-H01,
AT 15 TEXT-H03.
FORMAT COLOR OFF.
ENDIF.
AT LINE-SELECTION.
CHECK RB_LIST = 'X'. " only do in list mode
READ LINE SY-CUROW FIELD VALUE MTAB_DIRECTORY-SAVENAME.
*-- Read file into an internal table
PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
USING MTAB_DIRECTORY-SAVENAME.
*-- Split table into TADIR entry, report lines, and report text
PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
MTAB_PROGRAM_SOURCE
MTAB_PROGRAM_TEXTS
MTAB_PROGRAM_DOCUMENTATION
CHANGING TRDIR
MSTR_THEAD.
*-- Save all of the data
PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
MTAB_PROGRAM_TEXTS
MTAB_PROGRAM_DOCUMENTATION
USING TRDIR
MSTR_THEAD.
*----------------------------------------------------------------------*
* Start of processing *
*----------------------------------------------------------------------*
START-OF-SELECTION.
FORMAT COLOR COL_NORMAL.
IF RB_DOWN = 'X'.
PERFORM DOWNLOAD_REPORTS.
ELSEIF RB_UP = 'X'.
PERFORM UPLOAD_REPORTS.
ENDIF.
END-OF-SELECTION.
IF RB_DOWN = 'X'.
CONCATENATE P_PATH
'directory.txt'
INTO P_PATH.
PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_DIRECTORY
USING P_PATH.
ENDIF.
*---------------------------------------------------------------------*
* FORM UPLOAD_REPORTS *
*---------------------------------------------------------------------*
FORM UPLOAD_REPORTS.
*-- Can upload a reports entered in selection criteria or
*-- select from a list. List can be from index.txt in same directory
*-- (created by the download) or by reading the first line of each file
*-- in the directory.
IF RB_FILE = 'X'. " Upload single program from a file
*-- Read file into an internal table
PERFORM READ_REPORT_FROM_DISK TABLES MTAB_PROGRAM_FILE
USING P_PATH.
*-- Split table into TADIR entry, report lines, and report text
PERFORM SPLIT_INCOMING_FILE TABLES MTAB_PROGRAM_FILE
MTAB_PROGRAM_SOURCE
MTAB_PROGRAM_TEXTS
MTAB_PROGRAM_DOCUMENTATION
CHANGING TRDIR
MSTR_THEAD.
*-- Save all of the data
PERFORM INSERT_NEW_REPORT TABLES MTAB_PROGRAM_SOURCE
MTAB_PROGRAM_TEXTS
MTAB_PROGRAM_DOCUMENTATION
USING TRDIR
MSTR_THEAD.
ELSEIF RB_LIST = 'X'. " Show list for user to choose from
*-- get list of report names/descriptions from directory text
CONCATENATE P_PATH
'directory.txt'
INTO P_PATH.
PERFORM READ_REPORT_FROM_DISK TABLES MTAB_DIRECTORY
USING P_PATH.
SORT MTAB_DIRECTORY.
*-- Write out list of report names/descriptions
LOOP AT MTAB_DIRECTORY.
WRITE:
/ MTAB_DIRECTORY-NAME UNDER TEXT-H01,
MTAB_DIRECTORY-DESC UNDER TEXT-H03,
MTAB_DIRECTORY-SAVENAME.
ENDLOOP.
*-- Process user selections for reports to upload.
ENDIF.
ENDFORM. " upload_reports
*---------------------------------------------------------------------*
* FORM DOWNLOAD_REPORTS *
*---------------------------------------------------------------------*
* From the user selections, get all programs that meet the *
* criteria, and save them in ftab_program_directory. *
* Also save the report to disk. *
*---------------------------------------------------------------------*
FORM DOWNLOAD_REPORTS.
DATA:
LC_FULL_FILENAME LIKE RLGRAP-FILENAME.
*-- The table is put into an internal table because the program will
*-- abend if multiple transfers to a dataset occur within a SELECT/
*-- ENDSELCT (tested on 3.1H)
SELECT * FROM TRDIR
INTO TABLE MTAB_PROGRAM_TRDIR
WHERE NAME IN S_NAME
AND SUBC IN S_SUBC
AND CNAM IN S_CNAM
AND UNAM IN S_UNAM
AND CDAT IN S_CDAT
AND UDAT IN S_UDAT.
LOOP AT MTAB_PROGRAM_TRDIR.
*-- Clear out text and source code tables
CLEAR:
MTAB_PROGRAM_FILE,
MTAB_PROGRAM_SOURCE,
MTAB_PROGRAM_TEXTS,
MTAB_PROGRAM_DOCUMENTATION.
REFRESH:
MTAB_PROGRAM_FILE,
MTAB_PROGRAM_SOURCE,
MTAB_PROGRAM_TEXTS,
MTAB_PROGRAM_DOCUMENTATION.
*-- Get the report
READ REPORT MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_SOURCE.
*-- Get the text for the report
READ TEXTPOOL MTAB_PROGRAM_TRDIR-NAME INTO MTAB_PROGRAM_TEXTS.
*-- Get the documentation for the report
CLEAR DOKIL.
SELECT * UP TO 1 ROWS FROM DOKIL
WHERE ID = 'RE'
AND OBJECT = MTAB_PROGRAM_TRDIR-NAME
AND LANGU = SY-LANGU
AND TYP = 'E'
ORDER BY VERSION DESCENDING.
ENDSELECT.
*-- Documentation exists for this object
IF SY-SUBRC = 0.
CALL FUNCTION 'DOCU_READ'
EXPORTING
ID = DOKIL-ID
LANGU = DOKIL-LANGU
OBJECT = DOKIL-OBJECT
TYP = DOKIL-TYP
VERSION = DOKIL-VERSION
IMPORTING
HEAD = MSTR_THEAD
TABLES
LINE = MTAB_PROGRAM_DOCUMENTATION
EXCEPTIONS
OTHERS = 1.
ENDIF.
*-- Put the report code and texts into a single file
*-- Put the identifier line in so that the start of the TRDIR line
*-- is marked
CONCATENATE MC_TRDIR_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
*-- Add the TRDIR line
MTAB_PROGRAM_FILE-LINE = MTAB_PROGRAM_TRDIR.
APPEND MTAB_PROGRAM_FILE.
*-- Put the identifier line in so that the start of the report code
*-- is marked
CONCATENATE MC_REPORT_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
*-- Add the report code
LOOP AT MTAB_PROGRAM_SOURCE.
MTAB_PROGRAM_FILE = MTAB_PROGRAM_SOURCE.
APPEND MTAB_PROGRAM_FILE.
ENDLOOP.
*-- Put the identifier line in so that the start of the report text
*-- is marked
CONCATENATE MC_TEXT_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
*-- Add the report texts
LOOP AT MTAB_PROGRAM_TEXTS.
MTAB_PROGRAM_FILE = MTAB_PROGRAM_TEXTS.
APPEND MTAB_PROGRAM_FILE.
ENDLOOP.
*-- Put the identifier line in so that the start of the THEAD record
*-- is marked
CONCATENATE MC_THEAD_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
MTAB_PROGRAM_FILE = MSTR_THEAD.
APPEND MTAB_PROGRAM_FILE.
*-- Put the identifier line in so that the start of the report
*-- documentation is marked
CONCATENATE MC_DOC_IDENTIFIER
MTAB_PROGRAM_TRDIR-NAME
INTO MTAB_PROGRAM_FILE-LINE.
APPEND MTAB_PROGRAM_FILE.
*-- Add the report documentation
LOOP AT MTAB_PROGRAM_DOCUMENTATION.
MTAB_PROGRAM_FILE = MTAB_PROGRAM_DOCUMENTATION.
APPEND MTAB_PROGRAM_FILE.
ENDLOOP.
*-- Make the fully pathed filename that report will be saved to
CONCATENATE P_PATH
MTAB_PROGRAM_TRDIR-NAME
'.txt'
INTO LC_FULL_FILENAME.
PERFORM SAVE_TABLE_TO_FILE TABLES MTAB_PROGRAM_FILE
USING LC_FULL_FILENAME.
*-- Write out message with Program Name/Description
READ TABLE MTAB_PROGRAM_TEXTS WITH KEY ID = 'R'.
IF SY-SUBRC = 0.
MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
MTAB_DIRECTORY-DESC = MTAB_PROGRAM_TEXTS-ENTRY.
MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
APPEND MTAB_DIRECTORY.
WRITE: / MTAB_PROGRAM_TRDIR-NAME,
MTAB_PROGRAM_TEXTS-ENTRY(65) COLOR COL_HEADING.
ELSE.
MTAB_DIRECTORY-NAME = MTAB_PROGRAM_TRDIR-NAME.
MTAB_DIRECTORY-DESC = 'No description available'.
MTAB_DIRECTORY-SAVENAME = LC_FULL_FILENAME.
APPEND MTAB_DIRECTORY.
WRITE: / MTAB_PROGRAM_TRDIR-NAME.
ENDIF.
ENDLOOP.
ENDFORM. " BUILD_PROGRAM_DIRECTORY
*---------------------------------------------------------------------*
* FORM SAVE_TABLE_TO_FILE *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> FTAB_TABLE *
* --> F_FILENAME *
*---------------------------------------------------------------------*
FORM SAVE_TABLE_TO_FILE TABLES FTAB_TABLE
USING F_FILENAME.
IF RB_DOS = 'X'. " Save file to presentation server
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
FILENAME = F_FILENAME
FILETYPE = 'ASC'
TABLES
DATA_TAB = FTAB_TABLE
EXCEPTIONS
OTHERS = 4.
IF SY-SUBRC NE 0.
WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
F_FILENAME COLOR COL_NEGATIVE.
ENDIF.
ELSE. " Save file to application server
OPEN DATASET F_FILENAME FOR OUTPUT IN TEXT MODE.
IF SY-SUBRC = 0.
LOOP AT FTAB_TABLE.
TRANSFER FTAB_TABLE TO F_FILENAME.
IF SY-SUBRC NE 0.
WRITE: / 'Error writing record to file;' COLOR COL_NEGATIVE,
F_FILENAME COLOR COL_NEGATIVE.
ENDIF.
ENDLOOP.
ELSE.
WRITE: / 'Error opening dataset' COLOR COL_NEGATIVE,
F_FILENAME COLOR COL_NEGATIVE.
ENDIF.
ENDIF. " End RB_DOS
ENDFORM. " SAVE_PROGRAM
*---------------------------------------------------------------------*
* FORM READ_REPORT_FROM_DISK *
*---------------------------------------------------------------------*
* Read report into internal table. Can read from local or *
* remote computer *
*---------------------------------------------------------------------*
FORM READ_REPORT_FROM_DISK TABLES FTAB_TABLE
USING F_FILENAME.
DATA:
LC_MESSAGE(128) TYPE C.
CLEAR FTAB_TABLE.
REFRESH FTAB_TABLE.
IF RB_DOS = 'X'.
TRANSLATE F_FILENAME USING '/\'. " correct slash for Dos PC file
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = F_FILENAME
FILETYPE = 'ASC'
TABLES
DATA_TAB = FTAB_TABLE
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TABLE_WIDTH = 4
INVALID_TYPE = 5
NO_BATCH = 6
UNKNOWN_ERROR = 7
OTHERS = 8.
IF SY-SUBRC >< 0.
WRITE: / 'Error reading file from local PC' COLOR COL_NEGATIVE.
ENDIF.
ELSEIF RB_UNIX = 'X'.
TRANSLATE F_FILENAME USING '\/'. " correct slash for unix
OPEN DATASET F_FILENAME FOR INPUT MESSAGE LC_MESSAGE IN TEXT MODE.
IF SY-SUBRC = 0.
DO.
READ DATASET F_FILENAME INTO FTAB_TABLE.
IF SY-SUBRC = 0.
APPEND FTAB_TABLE.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET F_FILENAME.
ELSE.
WRITE: / 'Error reading file from remote computer'
COLOR COL_NEGATIVE,
/ LC_MESSAGE,
/ F_FILENAME.
SY-SUBRC = 4.
ENDIF.
ENDIF.

ENDFORM. " READ_REPORT_FROM_DISK
*---------------------------------------------------------------------*
* FORM SPLIT_INCOMING_FILE *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> FTAB_PROGRAM_FILE *
* --> FTAB_PROGRAM_SOURCE *
* --> ` *
* --> FTAB_PROGRAM_TEXTS *
*---------------------------------------------------------------------*
FORM SPLIT_INCOMING_FILE TABLES FTAB_PROGRAM_FILE
STRUCTURE MTAB_PROGRAM_FILE
FTAB_PROGRAM_SOURCE
STRUCTURE MTAB_PROGRAM_SOURCE
FTAB_PROGRAM_TEXTS
STRUCTURE MTAB_PROGRAM_TEXTS
FTAB_PROGRAM_DOCUMENTATION
STRUCTURE MTAB_PROGRAM_DOCUMENTATION
CHANGING FSTR_TRDIR
FSTR_THEAD.
DATA:
LC_DATATYPE(4) TYPE C, " Type of data, REPO, TEXP, RDIR
LC_PROGRAM_FILE LIKE MTAB_PROGRAM_FILE.
LOOP AT FTAB_PROGRAM_FILE.
LC_PROGRAM_FILE = FTAB_PROGRAM_FILE.
CASE LC_PROGRAM_FILE(9).
WHEN MC_TRDIR_IDENTIFIER.
LC_DATATYPE = MC_TRDIR_SHORT.
WHEN MC_REPORT_IDENTIFIER.
LC_DATATYPE = MC_REPORT_SHORT.
WHEN MC_TEXT_IDENTIFIER.
LC_DATATYPE = MC_TEXT_SHORT.
WHEN MC_DOC_IDENTIFIER.
LC_DATATYPE = MC_DOC_SHORT.
WHEN MC_THEAD_IDENTIFIER.
LC_DATATYPE = MC_THEAD_SHORT.
WHEN OTHERS. " Actual contents of report, trdir, or text
CASE LC_DATATYPE.
WHEN MC_TRDIR_SHORT.
FSTR_TRDIR = FTAB_PROGRAM_FILE.
WHEN MC_REPORT_SHORT.
FTAB_PROGRAM_SOURCE = FTAB_PROGRAM_FILE.
APPEND FTAB_PROGRAM_SOURCE.
WHEN MC_TEXT_SHORT.
FTAB_PROGRAM_TEXTS = FTAB_PROGRAM_FILE.
APPEND FTAB_PROGRAM_TEXTS.
WHEN MC_THEAD_SHORT.
FSTR_THEAD = FTAB_PROGRAM_FILE.
WHEN MC_DOC_SHORT.
FTAB_PROGRAM_DOCUMENTATION = FTAB_PROGRAM_FILE.
APPEND FTAB_PROGRAM_DOCUMENTATION.
ENDCASE.
ENDCASE.
ENDLOOP.
ENDFORM. " SPLIT_INCOMING_FILE
*---------------------------------------------------------------------*
* FORM INSERT_NEW_REPORT*
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> FTAB_PROGRAM_SOURCE *
* --> FTAB_PROGRAM_TEXTS *
* --> F_TRDIR *
*---------------------------------------------------------------------*
FORM INSERT_NEW_REPORT TABLES FTAB_PROGRAM_SOURCE
STRUCTURE MTAB_PROGRAM_SOURCE
FTAB_PROGRAM_TEXTS
STRUCTURE MTAB_PROGRAM_TEXTS
FTAB_PROGRAM_DOCUMENTATION
STRUCTURE MTAB_PROGRAM_DOCUMENTATION
USING FSTR_TRDIR LIKE TRDIR
FSTR_THEAD LIKE MSTR_THEAD.
DATA:
LC_OBJ_NAME LIKE E071-OBJ_NAME,
LC_LINE2(40) TYPE C,
LC_ANSWER(1) TYPE C.
*-- read trdir to see if the report already exists, if it does, prompt
*-- user to overwrite or abort.
SELECT SINGLE * FROM TRDIR WHERE NAME = FSTR_TRDIR-NAME.
IF SY-SUBRC = 0. " Already exists
CONCATENATE 'want to overwrite report'
FSTR_TRDIR-NAME
INTO LC_LINE2 SEPARATED BY SPACE.
CONCATENATE LC_LINE2
'?'
INTO LC_LINE2.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
DEFAULTOPTION = 'N'
TEXTLINE1 = 'The selected report already exists, do you'
TEXTLINE2 = LC_LINE2
TITEL = 'Report already exists'
CANCEL_DISPLAY = SPACE
IMPORTING
ANSWER = LC_ANSWER
EXCEPTIONS
OTHERS = 1.
ELSE.
LC_ANSWER = 'J'.
ENDIF.
IF LC_ANSWER = 'J'.
*-- Create the TADIR entry. (TRDIR entry created by INSERT REPORT)
LC_OBJ_NAME = TRDIR-NAME.
CALL FUNCTION 'TR_TADIR_POPUP_ENTRY_E071'
EXPORTING
WI_E071_PGMID = 'R3TR'
WI_E071_OBJECT = 'PROG'
WI_E071_OBJ_NAME = LC_OBJ_NAME
WI_TADIR_DEVCLASS = '$TMP'
EXCEPTIONS
EXIT = 3
OTHERS = 4.
IF SY-SUBRC = 0.
*-- Create Report
INSERT REPORT FSTR_TRDIR-NAME FROM FTAB_PROGRAM_SOURCE.
*-- Create Texts
INSERT TEXTPOOL FSTR_TRDIR-NAME FROM FTAB_PROGRAM_TEXTS
LANGUAGE SY-LANGU.
*-- Save Documentation
CALL FUNCTION 'DOCU_UPDATE'
EXPORTING
HEAD = FSTR_THEAD
STATE = 'A'
TYP = 'E'
VERSION = '1'
TABLES
LINE = FTAB_PROGRAM_DOCUMENTATION
EXCEPTIONS
OTHERS = 1.
ELSE.
WRITE: / 'Error updating the TADIR entry' COLOR COL_NEGATIVE,
'Program' COLOR COL_NEGATIVE INTENSIFIED OFF,
FSTR_TRDIR-NAME, 'was not loaded into SAP.'
COLOR COL_NEGATIVE INTENSIFIED OFF.
ENDIF.
ELSE.
WRITE: / FSTR_TRDIR-NAME COLOR COL_NEGATIVE,
'was not uploaded into SAP. Action cancelled by user'
COLOR COL_NEGATIVE INTENSIFIED OFF.
ENDIF.
ENDFORM. " INSERT_NEW_REPORT
*---------------------------------------------------------------------*
* FORM GET_NAME *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> VALUE(F_FIELD) *
* --> F_NAME *
*---------------------------------------------------------------------*
FORM GET_NAME USING VALUE(F_FIELD)
CHANGING F_NAME.
DATA: LTAB_FIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
LC_PROG LIKE D020S-PROG,
LC_DNUM LIKE D020S-DNUM.
TRANSLATE F_FIELD TO UPPER CASE.
refresh ltab_fields.
LTAB_FIELDS-FIELDNAME = F_FIELD.
append ltab_fields.
LC_PROG = SY-REPID .
LC_DNUM = SY-DYNNR .
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = LC_PROG
DYNUMB = LC_DNUM
TABLES
dynpfields = ltab_fields
EXCEPTIONS
OTHERS = 01.
read table ltab_fields index 1.
IF SY-SUBRC EQ 0.
F_NAME = LTAB_FIELDS-FIELDVALUE.
refresh ltab_fields.
ENDIF.
CALL FUNCTION 'F4_USER'
EXPORTING
OBJECT = F_NAME
IMPORTING
RESULT = F_NAME.
ENDFORM. " GET_NAME

Program Texts

DIR File Download Options (File Selection)
FIL File Options
FNA Enter filename below (under File Options)
H01 Prog Name
H03 Program Description
SNG Upload a single file
UDL Upload to SAP/Download from SAP
UPL File Upload Options
R Backup/Restore program source code with texts
P_PATH Path to save programs to
RB_DOS Files on local computer
RB_DOWN Download Programs
RB_FILE Upload a single file
RB_LIST Select program(s) from a list
RB_UNIX Files on remote computer
RB_UP Upload Programs to SAP
S_CDAT Date Created
S_CNAM Created by UserID
S_NAME Program Name
S_SUBC Program Type
S_UDAT Date Changed
S_UNAM Last Changed by UserID

Pop Up Debug

2007-10-28T22:53:00.000-03:00

Crear un text con lo siguiente:

[FUNCTION]

Command=/H

Title=Debugger

Type=SystemCommand

Luego... drag and drop en la ventana que queremos debbuguear.

2007-10-18T17:21:00.000-03:00

Si deseamos insertar un texto en un selection screen debemos agregar el siguiente codigo.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(66) TEXT-001 FOR FIELD p_path.
SELECTION-SCREEN END OF LINE.

y mantener el texto en Elementos de textos 001. (66 es el largo del texto introducido)

Browser file en Matchcode

2007-10-18T17:05:00.000-03:00

Es común necesitar de este browser cuando tenemos que elejir la ruta para abrir un archivo o para grabar uno.

DATA: p_path_file TYPE STRING.

PARAMETERS: p_path like rlgrap-filename.

at selection-screen on value-request for p_path.
call function 'F4_FILENAME'
exporting
program_name = sy-repid
dynpro_number = sy-dynnr
field_name = 'PATH'
importing
file_name = p_path.

p_path_file = p_path.

la Función GUI_DOWNLOAD pide que el path sea un STRING, por eso le asigno el valor de p_path a p_path_file.

Crear Matchcode (Search Help) con una tabla interna.

2007-10-18T16:59:00.001-03:00

En un momento dado me pidieron hacer un reporte donde el matchode del campo lgort, traía todos los lgort (almacenes) de todos los centros y el requerimiento era solamente los de un determinado centro.

Descubrí que se puede realizar un matchode dinamicamente con una tabla interna nuestra directamente desde el código.

Código:

At selection-screen on value-request for s_lgort-low.
Select LGORT LGOBE
from T001L
into table it_lgort
where werks = '2000'.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'LGORT'
WINDOW_TITLE = 'Depósitos'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = it_lgort
RETURN_TAB = it_ret
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3.

IF SY-SUBRC = 0.
read table it_ret index 1.
move it_ret-fieldval to S_lgort-low.
ENDIF.

Esto muestra el almacén, la descripción del mismo, y al elejir uno nos lleva al select option la opción elejida.

Problemas con el Filtro en reportes ALV

2007-10-17T10:14:00.000-03:00

El problema que tenía era que al querer uhacer el filtro de un campo de 16 caracteres, el filtro solamente me dejaba cargar ingresar 10. Por lo tanto nunca realizaba el filtro correctamente.

Hay varias notas con respecto a este tema, si tenes todas aplicadas, como era mi caso y ya no sabía que inventar.

En un momento se iluminó la lamparita y lo solucioné utilizando lo siguiente:

gt_fieldcat-Outputlen = 16.

Esta propiedad del catalago es la que toma el filtro (ademas de ser la que determina el largo del campo a mostrarse).

TIP: En los Filtros se pueden utilizar wildcards (ejemplo: *004)

Función GET_DYNP_VALUE

2007-10-10T16:33:00.000-03:00

Esta función se suele usar en los Field Exits, o en alguna que otra exits.

Con esta función podemos obtener el valor de un campo en la pantalla que estamos parados.

Recibe 3 parametros:
1- Campo
2- Programa
3- Pantalla

y devuelve un STRING con el valor determinado.

Example

DATA: l_vkorg TYPE STRING.

CALL FUNCTION 'GET_DYNP_VALUE'
EXPORTING
I_FIELD = 'RMMG1-VKORG'
I_REPID = 'SAPLMGD1'
I_DYNNR = '1004'
CHANGING
O_VALUE = l_vkorg.

Conectar SAP con DB SQL e insertar registros en el SQL directamente

2007-10-10T10:22:00.000-03:00

En ABAP podemos grabar directamente en una DB externa a pedido de algún cliente, en este caso había que conectarse con una DB SQL Server, esto se realiza manteniendo una conexión con la DB y desde abap usando SQL NATIVO.

Pasos a seguir.
1- Establecer la conexión via tx DBCO

Enlace DB: es el nombre que nosotros queramos es el nombre con el cual dsp en el Código usaremos.
SGBD: Es el tipo de Server MSS (SQL Server)
Usuario y Password para acceder a la DB
Info Con.: El string de conexión con la DB.

2- Código Fuente
El SQL Nativo debemos ejecutarlo dentro de sentencias.
EXEC SQL
...
ENDEXEC.

"Primero nos conectamos
EXEC SQL.
CONNECT TO 'MULTINT3R' AS 'R'
ENDEXEC.

EXEC SQL.
SET CONNECTION 'R'
ENDEXEC.

"Loopeamos la tabla interna que deseamos grabar e insertamos los valores
LOOP AT IT_SQL.
EXEC SQL.
INSERT INTO ZRemito
(Remito, RemitoInterno, OT, Modelo, IMEI, ModReemp, IMEIReemp, Garantia, Precio, Moneda, NroFormularioSIC,Operador, TipoReg, codFallaAccionParte, FallaAccionParte, TextoFallaAccionParte, Cantidad, FechaHora,Usuario)
VALUES (:IT_SQL-REMITO, :IT_SQL-remito_sap, :IT_SQL-aufnr,:IT_SQL-Modelo, :IT_SQL-imei, :IT_SQL-modreemp,:IT_SQL-IMEIReemp, :IT_SQL-Garantia, :IT_SQL-Precio, :IT_SQL-Moneda, :IT_SQL-FSIC, :IT_SQL-Operador,:IT_SQL-LETRA, :IT_SQL-COD, :IT_SQL-Falla, :IT_SQL-Falla_t, :IT_SQL-Cantidad, :IT_SQL-Fecha, :IT_SQL-Usuario)
ENDEXEC.
ENDLOOP.

EXEC SQL.
SET CONNECTION DEFAULT
ENDEXEC.

User exit salvar factura

2007-10-09T17:38:00.000-03:00

La ampliación que posee la exit al momento de salvar una factura, para poder hacer chequeos y validaciones antes de grabarse:

SDVFX001 -> FUNCTION EXIT_SAPLV60B_001 -> INCLUDE ZXVVFU01

NOTA: Recordar que no solo la VF01 es usada en esta exit, por ej, la tx VF11 (anulación de facturas) tmb llama a esta exit así que debemos restringir el user exit condicionando por el SY-TCODE.

Validación de Número de CAI

2007-10-09T17:27:00.000-03:00

A veces tenemos que desarrollar validaciónes en cuanto al número de CAI.La tabla se mantiene por Customizing, se accede con la siguiente ruta.

Componentes Multiaplicaciones -> Funciones de aplicación generales -> Numeración de documentos multiaplicaciones -> Argentina -> Define Print Authorization Codes.

La tabla transparente es la J_1APACD.

Los datos que necesitaremos para realizar el chequeo son:

Sociedad

Lugar

Tipo de document(FI)

Letra

fecha

Ver tmb: User exit al salvar una factura

Autorizaciones para la visualización de Condiciones

2007-10-08T10:46:00.000-03:00

En algunos clientes piden que ciertos usuarios no puedan visualizar las condiciones, de por ejemplo un pedido.

Esto no esta programado por SAP, pero la Nota 105621 que nos permite hacer esto.

La nota crea un objeto de blockeo entonces solamente a los usuarios que nosotros querramos le agregaremos un perfil con permisos para ver todas las condiciones.

Se se desea dividir los permisos. Por ej. Que ciertos usuarios vean los pedidos, pero no los contratos, o presupuestos. Para poder hacer esto cada uno debe tener un esquema de cálculo distinto. Sino no es posible.

NOTA: Los permisos se setean a nivel de Esquema de calculo, no de Transacción.

Debugging ABAP de una Webdynpro

2007-10-08T10:37:00.000-03:00

Requisitos:
El JCO connector debe estar seteando en Single Server Connection.

1. Loguearse al sistema destino con el mismo nombre de usuario que esta seteado en el JCO connector.

2. Activar external debugging en ABAP Workbench.
a. Ir a tx SE37, SE38, o SE80.
b. Choose Utilidades-> Opciones en ABAP Editor tab ir a Debugging.
c. Poner el Usuario (JCO connector) Seleccionamos Actv. y Desactivamos IP matching
d. Salvamos.
3. Ponemos breakpoint Externo in the ABAP code, en el código como cualquier otro.

Al correr la Webdynpro for Java, se detendra en el breakpoint puesto y podemos analizar la llamada.

Crear transacción que ejecute directamente una vista de actualización.

2007-10-08T10:16:00.001-03:00

Primero debemos tener echa una vista de actualización. Luego, si deseamos que el usuario ingrese una transacción y que le aparezca directamente la vista de actualización (modo update) para ya realizar cambios.

En la SE93 (creación de Transacciones) Creamos una tx y elegimos el tipo Parámetros y la seteamos de la siguiente manera.

Lo que estamos haciendo es llamar a la SM30, salteando la primer pantalla y abajo seteamos el nombre de la vista a actualizar y el modo de Update, si queremos que se visualice solamente hay que modificar ese parametro.

Parametros del servidor

2007-10-08T10:06:00.000-03:00

En la tx rz10, podemos administrar los parámetros del servidor.

Al realizar cambios hay que bajar y volver a subir el servidor, para que tome los cambios.

Por ej: para que funcionen los Field Exits el siguiente parametro debe estar seteado.

abap/fieldexit = YES

Creación de Field Exits

2007-10-05T16:48:00.000-03:00

Un Field Exit sirve funciona como un exit común, pero tiene ciertas particularidades y ademas el dominio abarca un solo campo (data element) y el dominio puede ser Global o especifico a Programa - Dynpro.

Para Acceder al Menu de Field Exits.

Tx CMOD y en el browser poner PRFB.

Si creamos un Field Exits, debemos primero Crear un grupo de Función, ya que el Field Exits trabaja en una Función con un parametro de import y otro de export, equivalentes al valor que ingresa y al valor que sale.

Luego de su creacion debemos Activarla para que surga efecto.

En un Field exit no podemos usar ninguna de las siguientes instrucciones.

BREAK-POINT

CALL SCREEN

CALL DIALOG

CALL TRANSACTION

SUBMIT

COMMIT WORK

ROLLBACK WORK

MESSAGE I

MESSAGE W

NOTA: Para poder activar los Field Extis debemos tener el parémetro.
abap/fieldexit = YES

Seteado en el servidor. Ver

Traducir un Smartform

2007-10-05T15:19:00.000-03:00

Si se desea traducir un smartforms Z de español y a ingles, debemos utilizar la transaccion SE63 para realizar la misma y luego transportarla.

SE63 - Menu Traducción -> R/3 Enterprise -> Otros textos explicativos
Elejimos <> Smart Form SAP

En nombre de objeto ponemos el Smartforms que deseamos traducir. Con su repectivo Idioma origen y destino.
Nos aparecera una Doble ventana en la superior estan los textos y debajo su valor (en el idioma original) con su respectivo tipografia.

Nosotros debemos completar el cuadro de abajo elejiendo el valor que querramos en el idioma destino, o sea traducir nosotros la palabra del español a ingles.

NOTA: tratar de dejar la misma alineación de los textos, asi no tenemos problemos con las posiciones.

Al terminar, grabamos y activamos. Notese que no se genero ninguna orden de transporte.

Para poder transportar la traducción debemos agregar nosotros mismos la traducción a una Orden de transporte (algo similar con los textos creados con la SO10).

Ejecutar programa RS_LXE_RECORD_TORDER
Elejimos Create Transport Request ( )
Ponemos el idioma Destino
En Clase de orden elejimos T para que al liberar no se importen automaticamente en los otros sistemas o K para que siga la ruta especificada.

Grabamos. Esto genera una orden sin objetos. Ahora debemos llenarla.

Ejecutar programa RS_LXE_RECORD_TORDER
Ponemos el Idioma Destino 'EN' (ingles)
El tipo de objeto 'SSF' (Smartform)
Y la fecha y autor para restingir busqueda.

Nos aparecen las encontradas, ahi deberiamos ver la nuestra. La seleccionamos, ejecutamos y nos aparece un log de concluido.

Vamos a la SE10 y vamos a ver nuestra orden creada con el respectivo Objeto de traducción. Listo para ser transportada a QA.