CONSTANTS:
c_archiv_id TYPE toa01-archiv_id VALUE ‘SA’,
c_mimetype TYPE scms_stinf-mimetype VALUE ‘application/pdf’.

*1st Obtain the COMP_ID value of PDF type of the VIM document
DATA ltb_comps TYPE STANDARD TABLE OF scms_stinf.

CALL FUNCTION ‘SCMS_DOC_INFO’
   EXPORTING
      stor_cat = ‘ ‘
      crep_id = c_archiv_id
      doc_id = Nro_doc_id ‘‘Nro Doc. VIM que se puede obtener de la tabla toa01
   TABLES
      comps = ltb_comps
   EXCEPTIONS
      bad_storage_type = 1
      bad_request = 2
      unauthorized = 3
      not_found = 4
      conflict = 5
      internal_server_error = 6
      error_http = 7
      error_signature = 8
      error_config = 9
      error_hierarchy = 10
      error_parameter = 11
      error = 12
      OTHERS = 13.
IF sy-subrc = 0 AND ltb_comps[] IS NOT INITIAL.
      READ TABLE ltb_comps ASSIGNING FIELD-SYMBOL(<fs_comps>)
                                                WITH KEY mimetype = c_mimetype
                                                BINARY SEARCH.
      IF sy-subrc = 0.
*2nd Download the corresponding PDF of the VIM document
            CALL FUNCTION ‘SCMS_HTTP_GET_FILE’
                  EXPORTING
                  crep_id = c_archiv_id
                  doc_id = Nro_doc_id ‘‘Nro Doc. VIM (tabla toa01)
                   comp_id = <fs_comps>-comp_id ‘‘Dato obtenido en el 1er paso
                   path = ‘C:\DocVIM.pdf’ ‘‘Ruta completa
                   frontend = ‘X’ ‘‘Equis bajar en computadora. Vacío bajar en servidor.
                   EXCEPTIONS
                   bad_request = 1
                   unauthorized = 2
                   not_found = 3
                   conflict = 4
                   internal_server_error = 5
                   error_http = 6
                   error_url = 7
                   error_signature = 8
                   error_download = 9
                   OTHERS = 10.
                   IF sy-subrc = 0.
                   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
                   ENDIF.
      ENDIF.
ENDIF.

Technorati tags: sdn blogger

Básicamente el CDC es la concatenación de 11 campos:

Código ABAP para la obtención del Dígito Verificador del CDC en Módulo 11:

DATA: 
lv_cdc(43)       TYPE c, «Primeros diez campos
lv_dv_cdc        TYPE c, «Dígito Verificador
lv_cdc_final(44) TYPE c. «CDC completo (los once campos concatenados)

* 1ro – Hay que concatenar los primeros 10 campos del CDC en una variable de 43 caracteres.
CONCATENATE campo1 campo2 campo3 campo4 campo5 campo6 campo7 campo8 campo9 campo10 into lv_cdc.

* 2do – Pasar esa variable de 43 caracteres al siguiente PERFORM que devuelve como resultado el Dígito Verificador en Módulo 11
PERFORM calcula_dv_del_cdc USING     lv_cdc
                              CHANGING lv_dv_cdc.

*&———————————————————————*
*&      Form  CALCULA_DV_DEL_CDC
*&———————————————————————*
FORM calcula_dv_del_cdc  USING     fw_cdc    TYPE char43
                          CHANGING fw_dv_cdc TYPE char1.
  DATA: lv_cdc    TYPE char43,
        lv_veces  TYPE i,
        lv_factor TYPE i,
        lv_suma   TYPE i,
        lv_pos    TYPE i.

  lv_cdc = fw_cdc.
  CONDENSE lv_cdc NO-GAPS.
  lv_veces = strlen( lv_cdc ).

  lv_factor = 2.
  CLEAR lv_suma.
  lv_pos = lv_veces – 1.

  DO lv_veces TIMES.
    lv_suma = lv_suma + ( lv_cdc+lv_pos(1) * lv_factor ).
    lv_pos = lv_pos – 1.
    lv_factor = lv_factor + 1.
    IF lv_factor > 11.
      lv_factor = 2.
    ENDIF.
  ENDDO.

  lv_factor = lv_suma MOD 11.

  IF lv_factor > 1.
    lv_factor = 11 – lv_factor.
    fw_dv_cdc = lv_factor.

  ELSE.
    fw_dv_cdc = ‘0’.
  ENDIF.

ENDFORM.                    » CALCULA_DV_DEL_CDC

* 3ro – Finalmente se arma el CDC completo (los once campos concatenados):
  CONCATENATE lv_cdc lv_dv_cdc INTO lv_cdc_final.

Technorati tags: sdn blogger

Para que un campo de un ALV Grid sea editable y además permita texto tanto en mayúscula como también minúscula. Es necesario agregar en el FIELDCATALOG la opción de LOWERCASE

Pero además es necesario que el campo editable esté referenciado a un elemento de dato cuyo dominio acepte texto en minúsculas:

Technorati tags: sdn blogger

*Colocar este código en el FORM del User Command antes del CASE del sy-ucomm
DATA: lo_grid TYPE REF TO cl_gui_alv_grid.
IF lo_grid IS INITIAL.
CALL FUNCTION ‘GET_GLOBALS_FROM_SLVC_FULLSCR’
IMPORTING
e_grid = lo_grid.
ENDIF.
IF NOT lo_grid IS INITIAL.
CALL METHOD lo_grid->check_changed_data.
ENDIF.

*Con ese código la tabla interna del reporte ALV Grid tendrá actualizados los datos modificados por el usuario.

Mientras que la BAPI_PBSRVAPS_GETDETAIL2 se utiliza para leer valores de un Key Figure de una vista de datos para un libro de planificación.

Para su ejecución hay que llenar la estructura IS_VARKEY con:
– Campo REPORT: completar nombre técnico del programa/reporte ALV.
– Campo VARIANT: completar con el nombre del LAYOUT.
– Campo Type: completar con F.

Tras la ejecución la función devuelve 4 tablas:

• T_DBFIELDCAT: Devuelve toda la información del Field Catalog de ese Layout en particular. Por ejemplo qué columnas son visibles y cuáles ocultas, posición de las columnas, etc.
• T_DBSORTINFO: Devuelve si para ese Layout en particular se aplicó algún tipo de SORT (ordenamiento) en el reporte.
• T_DBFILTER: Devuelve si para ese Layout en particular se aplicó algún tipo de filtro en el reporte.
• T_DBLAYOUT: Devuelve si el ALV tiene alguna configuración especial como ser la opción ZEBRA o Column Width Optimization, etc.

DATA:
FIELD-SYMBOLS: <fs_table> TYPE STANDARD TABLE,
                    <fs_wa>    TYPE any.
DATA: dyn_table        TYPE REF TO data,
           dyn_line          TYPE REF TO data,
           ltb_field_cat  TYPE lvc_t_fcat.

*Lo primero es cargar el Field Catalog (la tabla interna ltb_field_cat) por ejemplo con la función ‘LVC_FIELDCATALOG_MERGE‘

*Y a continuación podemos modificar el Field Catalog como queramos. Por ejemplo quedarnos únicamente con los campos/columnas visibles:

SORT ltb_field_cat BY no_out.
DELETE ltb_field_cat WHERE no_out = abap_true.

SORT ltb_field_cat BY col_pos.

*Luego entonces creamos la tabla interna dinámica y se asigna al Field Symbol:

        CALL METHOD cl_alv_table_create=>create_dynamic_table
          EXPORTING
            it_fieldcatalog = ltb_field_cat
          IMPORTING
            ep_table        = dyn_table.
        ASSIGN dyn_table->* TO <fs_table>.

*Y también creamos su respectiva work area dinámica y se asigna al Field Symbol

 CREATE DATA dyn_line LIKE LINE OF <fs_table>.
 ASSIGN dyn_line->* TO <fs_wa>.

*Finalmente cargamos con datos la tabla dinámica que creamos en el paso anterior. Se puede hacer un select into a la tabla <fs_table>.
O bien con un código como el siguiente con datos de otra tabla interna previa:

  LOOP AT tb_report ASSIGNING FIELDSYMBOL(<lwa_report>).
          MOVE-CORRESPONDING <lwa_report> TO <fs_wa>.
          APPEND <fs_wa> TO <fs_table>.
  ENDLOOP.

Technorati tags: sdn blogger

Esta bapi cumple la misma labor que la transacción VF11.

Este es el código:

DATA:
lv_doc         LIKE bapivbrksuccess–bill_doc,
lv_date       TYPE bf_datm1eb,
t_return      TYPE TABLE OF bapireturn1,
t_success    TYPE TABLE OF bapivbrksuccess.

lv_doc  = vbeln. «Número de factura SD que se quiere cancelar.
lv_date = fecha. «Fecha en la que se contabilizará la cancelación.

* Función que reversa el documento
CALL FUNCTION ‘BAPI_BILLINGDOC_CANCEL1‘
EXPORTING
billingdocument = lv_doc
billingdate  = lv_date
*testrun         =
*no_commit   =
TABLES
return  = t_return
success = t_success.

*La tabla t_return devuelve todos los mensajes ocurridos durante la cancelación.
*La tabla t_succes devuelve, entre otros datos, el número de la cancelación.

Technorati tags: sdn blogger

Debemos determinar la estructura y el campo que vamos a modificar.
Para eso en la transacción ME21N/ME22N/ME23N nos posicionamos en el campo "Solicitante", presionamos F1… y click en "Información técnica":

Paso seguido vamos a la transacción SE11 para ver la estructura obtenida en el paso anterior (MEPO1211).

Y hacemos doble click en la estructura “MEPO1211_DATA”.

A continuación creamos una “Estructura de inclusión”.

Por ejemplo ZHELPAFNAM

Y apretamos el botón “Appending On”.

Luego hay que ir a la solapa “Ayuda p./Verif.entr”, posicionar el cursor en el campo AFNAM y click en el botón “Ay.búsq.”.

Completar con el “Nombre de la tabla” (MEPO1211_DATA) y el “Nombre del campo” (AFNAM).

Guardamos y activamos la estructura de ZHELPAFNAM.

Finalmente sólo resta volver a la estructura anterior (MEPO1211_DATA). Y desde la solapa “Ayuda p./Verif.entr” hay que agregar la ayuda que queramos que tenga el campo AFNAM.

En este caso se agregó una ayuda Z creada especialmente… pero podría haber sido una ayuda estándar.

Espero que les sirva!

Technorati tags: sdn blogger

Para esto simplemente hay que agregar una «combinación de caracteres» (código ID) al comienzo de los textos de selección:

Ruta: Goto –> Text Elements –> Selection texts

Cada ícono tiene su propia combinación de caracteres:

Y con este programa podemos conocer todos los íconos y su respectivo ID:
DATA :
gs_icon TYPE ICON,
gt_icon TYPE TABLE OF ICON.
SELECT * FROM icon INTO TABLE gt_icon.
LOOP AT gt_icon INTO gs_icon.
WRITE :/
gs_icon-name,
33 '@',
34 gs_icon-id+1(2),
36 '@',
40 gs_icon-id.
ENDLOOP.

Technorati tags: sdn blogger

Este es el listado de Notas SAP que hay que implementar:
– Notas informativas:

1. 2111795
2. 2113594
3. 2130850

– Reporte Duplicados Electrónicos:

1. 2133830
2. 2152071
3. 2152354
4. 2112006
5. 2161430
6. 2179276
7. 2233315
8. 2205824
9. 2239191

– Reporte de Compras:

1. 2156071
2. 2154924
3. 2178007
4. 2177154
5. 2198423

– Reporte de Ventas:

1. 2154322
2. 2179014
3. 2187146
4. 2191414
5. 2192300
6. 2177143
7. 2211260
8. 2211320

Technorati tags: sdn blogger

Esta tabla nos será de utilidad por ejemplo cuando necesitemos saber cuál es el formato de fecha o cuál es separador decimal de un usuario SAP.

A esta tabla se ingresa simplemente colocando el nombre de usuario en el campo BNAME.

Technorati tags: sdn blogger

Ante estos casos, la manera de transportar entradas a otro ambiente es la siguiente: 

1. Ir a la transacción SE10 y crear una orden nueva de tipo workbench:
2. Una vez creada la orden damos doble click sobre la misma. Y en la solapa “Objetos” completamos la siguiente información:
   
   NOTA: el campo Objeto lo completamos con la tabla que queremos transportar. En este ejemplo se transportarán registros de la tabla SFLIGHT.
3. A continuación hacer click en la llave () y en la ventana que se abre hacer doble click en la primera línea en blanco:
   
   Completando los distintos campos podremos elegir los registros que queremos transportar. Para este ejemplo transportaremos la tabla completa del mandante 100
   

4. Ya creada la entrada sólo resta hacer click en el botón remarcado en rojo para verificar el contenido que vamos a transportar:
   
   
    

Finalmente hay que volver atrás, guardar () y cuando aparece el mensaje de advertencia elegimos que SÍ.
Con esto tendremos lista la orden para poder transportar.

Technorati tags: sdn blogger

A la función FAGL_GET_DOC_DETAILS_OF_LEDGER hay que pasarle el LEDGER de destino; y la sociedad, documento y ejercicio.

Como resultado, en la estructura ES_DETAILS, obtendremos: el ejercicio, período y número de documento del LEDGER de destino.

Technorati tags: sdn blogger

Estos conceptos se ven muy claros en un recibo de sueldo. Cada renglón con código, descripción y monto es un concepto; y por ende una cc-nómina.

Es decir: el sueldo es un concepto, las horas extras es otro concepto, etc, etc.

Si alguna vez nos toca hacer un programa donde necesitemos conocer el sueldo y/o composición de un empleado. Entonces la función HRCM_PAYROLL_RESULTS_GET nos será de muchísima utilidad para evitar el uso de base de datos lógicas de HR y su “engorrosa” codificación.
Ya que con sólo pasarle el número de legajo del trabajador y una fecha de inicio y fin, obtendremos una estructura completa de tablas con información del sueldo y sus cc-nóminas.

Por ejemplo en la estructura payroll_result_tab tendremos la tabla RT con el listado de cc-nóminas con sus respectivos montos:

Technorati tags: sdn blogger

*Declaraciones
DATA: w_ctrlop    TYPE ssfctrlop,
          w_compop TYPE ssfcompop,
          w_return    TYPE ssfcrescl,
          otfdata       LIKE itcoo OCCURS 0 WITH HEADER LINE,
          lc_name     TYPE rs38l_fnam,
          intab         TYPE  soli_tab,
          objbin       TYPE  solix_tab, 
          wa_intab   TYPE LINE OF soli_tab,
          wa_objbin TYPE LINE OF solix_tab,
          objpack    LIKE sopcklsti1 WITH HEADER LINE.

*Función que devuelve el modulo de función del SmartForm
CALL FUNCTION ‘SSF_FUNCTION_MODULE_NAME’
   EXPORTING
      formname           = ‘ZSMARTFORM’  “Nombre del formulario SmartForm
   IMPORTING
      fm_name            = lc_name
   EXCEPTIONS
      no_form                  = 1
      no_function_module = 2 
   OTHERS                     = 3.

*Llama al modulo de función del SF
    w_ctrlop-getotf          = ‘X’.
    w_ctrlop-no_dialog    = ‘X’.
    w_compop-tdnoprev  = ‘X’.

CALL FUNCTION lc_name
   EXPORTING
        output_options        = w_compop 
        control_parameters = w_ctrlop
   IMPORTING
        job_output_info       = w_return
   EXCEPTIONS
        formatting_error   = 1
        internal_error       = 2
        send_error           = 3
        user_canceled      = 4
   OTHERS                    = 5.
   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ELSE.
      otfdata[] = w_return-otfdata[].
   ENDIF.

*En la tabla otfdata nos queda guardado el formulario en formtao OTF
*Ahora sólo resta convertir el OTF en PDF
LOOP AT otfdata.
    wa_intab = otfdata.
    APPEND wa_intab TO intab.
    CLEAR wa_intab.
ENDLOOP.

*Convertir el OTF en PDF
CALL FUNCTION ‘SX_OBJECT_CONVERT_OTF_PDF’
    EXPORTING
      format_src           = ‘OTF’
      format_dst          = ‘PDF’
*     ADDR_TYPE        =
      devtype               = ‘LP01′
*     FUNCPARA          =
    CHANGING
      transfer_bin         = objpack-transf_bin
      content_txt          = intab
      content_bin         = objbin
      objhead              = intab
      len                     = objpack-doc_size
   EXCEPTIONS
      err_conv_failed   = 1 
   OTHERS                = 2.

*LISTO!!! En la tabla objbin nos queda guardado el PDF para salvarlo *en la PC con la función ‘GUI_DOWNLOAD’ o bien enviarlo por mail con *la función ‘SO_NEW_DOCUMENT_ATT_SEND_API1’

Technorati tags: sdn blogger

*Declaraciones
TABLES: itcpo.

DATA: otfdata LIKE itcoo OCCURS 0 WITH HEADER LINE,
          intab         TYPE  soli_tab,
          objbin       TYPE  solix_tab, 
          wa_intab   TYPE LINE OF soli_tab,
          wa_objbin TYPE LINE OF solix_tab,
          objpack    LIKE sopcklsti1 WITH HEADER LINE.

*Antes de la llamada a la función ‘OPEN_FORM’
itcpo-tdgetotf = ‘X’.
itcpo-tddest   = ‘LP01’.

CALL FUNCTION ‘OPEN_FORM’
   EXPORTING
      form       = ‘ZSAPSCRIPT’  “Nombre del formulario Sapscript 
      language = ‘S’
      options   = itcpo
      device    = ‘PRINTER’
      dialog     = ‘ ‘              “Vacío para que no muestre el pop-up de impresión
   EXCEPTIONS
   OTHERS   = 1.

*En el ‘CLOSE_FORM’
CALL FUNCTION ‘CLOSE_FORM’
   TABLES
      otfdata = otfdata
   EXCEPTIONS
   OTHERS  = 1.

*En la tabla otfdata nos queda guardado el formulario en formtao OTF
*Ahora sólo resta convertir el OTF en PDF
LOOP AT otfdata.
    wa_intab = otfdata.
    APPEND wa_intab TO intab.
    CLEAR wa_intab.
ENDLOOP.

*Convertir el OTF en PDF
CALL FUNCTION ‘SX_OBJECT_CONVERT_OTF_PDF’
    EXPORTING
      format_src           = ‘OTF’
      format_dst          = ‘PDF’
*     ADDR_TYPE        =
      devtype               = ‘LP01’
*     FUNCPARA          =
    CHANGING
      transfer_bin         = objpack-transf_bin
      content_txt          = intab
      content_bin         = objbin
      objhead              = intab
      len                     = objpack-doc_size
   EXCEPTIONS
      err_conv_failed   = 1 
   OTHERS                = 2.

*LISTO!!! En la tabla objbin nos queda guardado el PDF para salvarlo *en la PC con la función ‘GUI_DOWNLOAD’ o bien enviarlo por mail con *la función ‘SO_NEW_DOCUMENT_ATT_SEND_API1’

Technorati tags: sdn blogger

Al ingresar nos pedirá elegir el tipo de aplicación (facturación, ventas, expedición, etc.). Tras ejecutar abre una nueva pantalla con todo el listado de Clases de Mensaje para el tipo de aplicación elegida. Y a la izquierda podremos seleccionar para ver: títulos y textos, rutinas de proceso y funciones de interlocutor.

Es ideal para cuando un programador quiera conocer el formulario de impresión.

PD: Los créditos son para mi amigo Claudio Suriano.

Technorati tags: sdn blogger

Esto nos puede ser muy útil, como fue en mi caso, para el desarrollo de Field Exits.

A continuación el código:

* A I_PROGRAM hay que pasarle el nombre del programa.
* A I_DYNPRO se le pasa el número de pantalla o dynpro.
* Y I_FIELDNAME el campo del cual queremos conocer su contenido.
* La función nos devuelve en la variable W_EVAL el valor encontrado.

DATA: W_EVAL LIKE DYNPREAD-FIELDVALUE.

CALL FUNCTION ‘C14Z_DYNP_READ_FIELD’                                    
EXPORTING                                                              
   I_PROGRAM       = ‘SAPF110O’                                         
   I_DYNPRO        = ‘0102’                                             
   I_FIELDNAME     = ‘REGUH-LAUFD’                                      
   I_FLG_STEPLOOP  = ‘X’                                                
CHANGING                                                               
   E_VALUE         = W_EVAL.   

Technorati tags: sdn blogger

Ya que con la función GUI_DOWNLOAD únicamente no se puede hacer. Previamente hay que realizar una conversión para luego sí guardar el fichero .PDF.

*&—————————————————————–*
*& Report  Y_TEST
*&
*&—————————————————————–*
*&
*&
*&—————————————————————–*
REPORT y_test NO STANDARD PAGE HEADING.

**********************************************************************
*  Definición de variables                                                                   *
**********************************************************************
DATA: filesize  TYPE i,
header  LIKE thead,
options  LIKE itcpo,
result    LIKE itcpp,
otf        LIKE itcoo OCCURS 0 WITH HEADER LINE,
lines     LIKE tline OCCURS 0 WITH HEADER LINE,
lv_file   TYPE string.

**********************************************************************
*  Definición de la pantalla de selección                                              *
**********************************************************************
SELECTION-SCREEN BEGIN OF BLOCK blq1 WITH FRAME TITLE text-t01.
PARAMETERS:
p_impre TYPE pri_params-pdest OBLIGATORY,
p_file  TYPE rlgrap-filename OBLIGATORY DEFAULT ‘C:\PRUEBA.PDF’.
SELECTION-SCREEN END OF BLOCK blq1.

**********************************************************************
*  Proceso principal                                                                           *
**********************************************************************

*Se completa tabla lines con el contenido que queramos que tenga el archivo PDF
lines-tdline = ‘Este es el texto que aparecerá en el archivo PDF’.
lines-tdformat = ‘K’.
APPEND lines.

*Se obtienen y definen las opciones de formato del archivo
options-tddest = p_impre. «Nombre de impresora local
options-tdnewid = ‘X’.
options-tdgetotf = ‘X’.

CALL FUNCTION ‘PRINT_TEXT’
EXPORTING
device           = ‘PRINTER’
dialog           = ‘ ‘
application    = ‘TX’
header          = header
options         = options
IMPORTING
result         = result
TABLES
lines          = lines
otfdata      = otf
EXCEPTIONS
canceled     = 01
device        = 02
form          = 03
options      = 04
unclosed    = 05
unknown    = 06
format       = 07
textformat  = 08
communication = 09.

* Se convierte a PDF
CALL FUNCTION ‘CONVERT_OTF’
EXPORTING
format                = ‘PDF’
max_linewidth     = 132
IMPORTING
bin_filesize          = filesize
TABLES
otf                    = otf
lines                 = lines
EXCEPTIONS
err_conv_not_possible = 1.

* Bajamos el archivo
lv_file = p_file.

CALL FUNCTION ‘GUI_DOWNLOAD’
EXPORTING
bin_filesize = filesize
filename = lv_file
filetype = ‘BIN’
* APPEND = ‘ ‘
* CODEPAGE = ‘ ‘
* NO_BYTEORDER_MARK = ‘ ‘
* IMPORTING
* FILELENGTH = c
TABLES
data_tab = lines
* FORMAT_TAB =
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6.

Technorati tags: sdn blogger