Cálculo del Dígito Verificador del CDC

En Facturación Electrónica de Paraguay, a fin de mantener una única identificación para cada documento electrónico, la SET implementó el código de control o CDC.
El completo glosario, lo pueden ubicar en el siguiente link a partir de la página 214:
https://ekuatia.set.gov.py/portal/rest/jcr/repository/collaboration/sites/ekuatia/documents/documentacion/documentacion-tecnica/Manual%20T%C3%A9cnico%20Versi%C3%B3n%20150.pdf?version=2

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

ALV Grid Editable – Campo que admita texto en Minúsculas y Mayúsculas

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

ALV Grid Editable – Actualizar datos modificados en la tabla interna del reporte

En un reporte ALV Grid editable los datos modificados no se actualizan en la tabla interna si el usuario no apreta ENTER.
Con el siguiente código lo podremos solucionar:

*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.

---

Technorati tags: sdn blogger

BAPIS para el Libro de Planificación (Planning Book)

BAPI_PBSRVAPS_CHANGEKEYFIGVAL2 sirve para actualizar valores de un Key Figure para un libro de planificación.

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.

---

Technorati tags: sdn blogger

Función para cancelar/reversar facturaciones de ventas (SD)

Con la bapi BAPI_BILLINGDOC_CANCEL1 podemos cancelar/reversar documentos de facturación del área de ventas (SAP SD).

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

Agregar íconos en pantalla de selección

En nuestra pantalla de selección podemos agregar íconos al costado de cada parámetro:

 

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

RG 3685 – Almacenamiento de duplicados electrónicos y régimen de información de compras y ventas

Con la resolución general 3685 de la AFIP, en Argentina se actualizaron los reportes que hasta el momento se conocían como «Citi Compras y Citi Ventas«. Y además se agregó un tercer reporte: «Duplicados Electrónicos«.

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

Tabla de datos maestros de los usuarios

Mediante la tabla USR01 podemos visualizar las parametrizaciones de datos maestros de los usuarios SAP.

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

Transportar registros de una tabla sin diálogo de actualización

Cuando una tabla no tiene diálogo de actualización no se pueden realizar los transportes de registros mediante la transacción SM30.

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

Documento FI en distintos LEDGERS

En esta ocasión comparto la función FAGL_GET_DOC_DETAILS_OF_LEDGER que nos servirá para conocer un documento FI en otro LEDGER.
Porque dependiendo de la configuración del sistema es posible que el número de un documento FI sea distinto según el LEDGER. E incluso puede hasta variar el ejercicio. 

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

Función para obtener las cc-nóminas (sueldo) de un empleado

En el mundo de SAP HR, la cc-nómina ("Clave Concepto Nómina") es cada uno de los conceptos que componen el sueldo de un trabajador.

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

Pasar SmartForm a PDF

Es común que nos pidan hacer un resguardo de un formulario. Y probablemente tengamos que hacer el backup a PDF.
Con las siguientes pocas líneas vamos a poder hacerlo.

---

*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

Pasar Sapscript a PDF

Es común que nos pidan hacer un resguardo de un formulario. Y probablemente tengamos que hacer el backup a PDF.
Con las siguientes pocas líneas vamos a poder hacerlo.

---

*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

Circuito de Reparaciones (Orden de Renovación)

Ingresamos a la transacción IW81. Todos los campos deben ser completados tal como se indica en la figura:

Clase de orden: “PM04”
Prioridad: Muy elevado, Alto, Medio (utilizado normalmente) y Bajo.
Número material: Material a reparar.
Centro planificación: “1100” en este caso, Varía según la configuración de cada empresa. 

Luego presionamos ENTER o el botón Datos cab.

Pantalla inicial:
Completar en la parte superior de la pantalla el nombre o descripción del proceso (ejemplo : Prueba repa motor).

 

Debemos completar los siguientes campos en la solapa “Datos cab.”:
Responsable:
Rs.pto.tr.: Colocar el responsable de la operación.

Renovación:
Debemos completar tanto el centro y almacén de ingreso y salida (DE…A).

Primera operación:
Operación: Texto libre referente a la operación a realizar.

Pto Trab/Ce: Colocar el responsable de la operación.

ClvCtrol: Completar con la clave de control.

Cl.activ: Se puede dejar vacío o completar con la clase de actividad.

Trabinvert, Cantidad, y Dur.oper: El tiempo a emplear en la operación.

 

Luego vamos a la solapa “Interloc.”:
Y colocamos el número de cliente y seleccionamos del matchcode el título AG SOLICITANTE. Presionamos ENTER y se completan los datos.
Si necesitamos visualizar los datos del cliente ingresamos por la parte superior de la pantalla al botón .
Antes de grabar debemos presionar el botón para liberar la orden y poder continuar con el proceso.
Finalizar grabando la orden

 

!!!Con la transacción IW32 podemos visualizar esta orden una vez creada.

 

El siguiente paso es la entrada de la mercadería y se explica a continuación:
Ingresamos a la transacción IW8W:

Colocamos en el campo el número de orden generado previamente. Y presionamos ENTER.

Completamos los campos de fecha, almacén y cantidad del material que recibimos para reparar. Y finalizamos grabando el documento.

 

Notificación de OT:
Ingresamos a la transacción IW42

En la siguiente pantalla presionamos ENTER para visualizar los datos (horas de trabajo) grabados en la orden (Notificación tiempo).
Y deberíamos incluir los materiales adicionales que se usarán en la reparación. Centro/ Almacén (Movimientos de mercancías).

 

Ahora debemos generar el remito o formulario que acompañará la operación:
Ingresamos a la transacción MB11.

Chequear que esté puesto el tilde en el campo “IMPR.”. Presionamos el botón Por orden… . 

Completamos el campo de Orden. Presionamos el botón Tomar + Detalle.

Y se visualizarán los datos, si lo necesitamos… podemos agregar un texto en el campo del mismo nombre.

Presionando ENTER, veremos el detalle del movimiento de salida que se está por realizar.

Finalmente si hacemos doble click sobre el número de material; se abrirá una nueva pantalla donde podremos elegir las opciones de impresión con el botón «Mensajes«.

Volvemos entonces a la pantalla inicial donde ahora sí contabilizamos el documento utilizando el botón de grabar. Emitiendo así el remito.

---

Technorati tags: sdn blogger

Circuito de subcontratación

Planteo del problema:
Nuestra empresa requiere poder enviar un material semielaborado o materia prima a un proveedor. Para que luego el proveedor devuelva el material terminado con una factura por el costo del servicio.

Solución mediante SAP:
En este ejemplo se utiliza el material 200011 que es una lista de material que tiene como componente el material 100043.
Por lo tanto, para este ejemplo nuestra empresa entregará a un tercero las unidades correspondientes de la materia prima (material 100043) para luego recibir el producto terminado (material 200011).

---

1º PASO: Ingresar a la transacción ME21N y crear un pedido de tipo NB (estándar), en este caso cree un el tipo ZSUB (Sol. Subcontratación) que es una copia del tipo NB. Y elegir el proveedor que realizará el trabajo:

En la parte de las posiciones colocar el material terminado que se recibirá del proveedor. Completar con los datos que se usan comúnmente (fecha de entrega, cantidad, precio, etc).
Y en la columna de tipo de posición colocar L (subcontratación).

Luego completar, como hacen comúnmente con cualquier pedido, los campos que consideren necesarios de la parte de Cabecera.

En la parte de Detalles de la posición se podrán ver los componentes del material. En este caso el material 100043.

Finalmente se debe grabar el pedido:

 

2º PASO: El segundo paso es hacer entrega del material al proveedor relacionado al pedido que creamos en el paso anterior. En este ejemplo el material que se entregará es el 100043.
Para esto hay que ir a la transacción MB1B
Y completar con Clase de movimiento 541, centro y tildar la opción Impr para que se imprima un remito.
Acto siguiente apretar el botón de Por pedido…

Nos aparecerá una ventana donde debemos completar con el número del pedido creado en el primer paso. Y clickear en el botón Tomar + Detalle.

Por último apretar el botón de grabar para que se contabilice el traspaso y se imprima el remito.

 

3º PASO: Finalmente, el tercer y último paso es, una vez que se recibe el material terminado del proveedor. Hay que darlo de alta y dar de baja el material entregado.

Ir a la transacción MIGO
Eligiendo: Entrada de mercancía, pedido, número de pedido, y el movimiento 101.

Luego tildar la opción de Posición OK, completar la fecha de contabilidad y Nota de entrega. Apretar el botón Verificar.
Si todo da bien, apretar en el botón guardar.

Con esto, el circuito de subcontratación queda terminado.

---

Technorati tags: sdn blogger

Completar variables con espacios a la izquierda

Es común que en nuestras tareas diarias nos pidan generar archivos con algún formato en particular. Para luego ser levantado por un aplicativo fuera de SAP.

Y  es probable que nos pidan que ciertos campos los completemos con espacios en blanco adelante (a la izquierda). Por lo tanto acá dejo una sentencia ABAP para completar con espacios:

---

DATA: lv_dato(14) TYPE C.

lv_dato = ‘HOLA’.

*-> Con esta sentencia la variable lv_dato queda con 10 espacios en blanco y luego la palabra HOLA
SHIFT lv_dato RIGHT DELETING TRAILING SPACE.

 

Para saber más sobre la sentencia SHIFT…

---

Technorati tags: sdn blogger

Función SAVE_TEXT – Crear y guardar Textos en SAP

Con la función SAVE_TEXT vamos a poder crear y completar campos de textos en SAP. Podremos llenar, por ejemplo, textos de cabecera y posición en forma masiva.

---

Vamos a necesitar algo de información previa. Para eso hay que ir al lugar donde ponemos el texto y clickeamos en el menú Pasar a —> Cabecera…

 

El código que tenemos que agregar es:

*Declaraciones para los textos.
DATA: it_header  TYPE thead,
           it_lines      TYPE TABLE OF tline.

         REFRESH it_lines.
         CLEAR it_header.

*—–>Texto para agregar       
        it_lines-tdline = ‘Este es un texto de cabecera’.
        APPEND wa_lines TO it_lines.

*—–>Completamos con los datos que obtuvimos arriba 
        it_header-tdobject = ‘VBBK’.  «VG_OBJ
        it_header-tdname = ‘0000000057’.  «VG_NAME
        it_header-tdid   = ‘ZCER’.  «VG_ID
        it_header-tdspras = ‘E’.  «VG_LANG
        it_header-tdlinesize = ‘072’.

*—->Llamamos a la función que nos completa el texto
        CALL FUNCTION ‘SAVE_TEXT’
          EXPORTING
            header          = it_header
            insert          = ‘X’
            savemode_direct = ‘X’
          TABLES
            lines           = it_lines
          EXCEPTIONS
            id              = 1
            language        = 2
            name            = 3
            object          = 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.
        ENDIF.

Como resultado obtenemos:

---

Technorati tags: sdn blogger

Función RZL_READ_DIR_LOCAL – Conocer contenido de un directorio

Con la función RZL_READ_DIR_LOCAL podemos saber cuál es el contenido de un directorio del servidor en SAP.

Este es el código:

*-Declaro un parameter en el cual se completa la ruta del servidor del que queremos conocer su contenido
PARAMETERS:
            p_file TYPE rlgrap-filename OBLIGATORY DEFAULT ‘/data/’.

*-Variable para pasarle la ruta a la función
DATA: lv_name TYPE salfile-longname.

*->Levanto la lista de directorios
    lv_name = p_file.
    CALL FUNCTION ‘RZL_READ_DIR_LOCAL’
      EXPORTING
        name           = lv_name
      TABLES
        file_tbl       = it_filedir
      EXCEPTIONS
        argument_error = 1
        not_found      = 2
        OTHERS         = 3.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

*Como resultado en la tabla interna it_filedir obtenemos todo el contenido, *ya sean subcarpetas o archivos, de la ruta del servidor que ingresamos *por parámetro.

---

Technorati tags: sdn blogger

Matchcode Browser Server (buscador de directorios del servidor)

Con la siguiente función vamos a poder habilitar el matchcode para que abra un browser file (explorador de directorios) del servidor. Esto nos va a servir para hacer upload y download de archivos.

Acá el código que debemos ingresar en nuestros programas:

* Constantes locales
  CONSTANTS:lc_p TYPE c VALUE ‘P’,
                      lc_a TYPE dxfields-location VALUE ‘A’.

* Variables locales
  DATA: li_host TYPE STANDARD TABLE OF msxxlist,
             lw_host TYPE msxxlist,
             lv_path TYPE dxfields-longpath,
             lv_ubicacion(1) TYPE c,
             lv_abend  TYPE c.

*En P_FILE va a quedar guardada la ruta del archivo del servidor
PARAMETERS: P_FILE LIKE RLGRAP-FILENAME.

*- Machcode busqueda de archivo del servidor
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

*-Nombre del servidor
  CALL FUNCTION ‘RFC_GET_LOCAL_SERVERS’
    TABLES
      hosts         = li_host
    EXCEPTIONS
      not_available = 1
      OTHERS        = 2.

  IF sy-subrc IS INITIAL.

*-Nombre del servidor a la estructura
    CLEAR lw_host.
    READ TABLE li_host
               INTO lw_host
               INDEX 1.

*-Obtengo el path
    CALL FUNCTION ‘F4_DXFILENAME_TOPRECURSION’
      EXPORTING
        i_location_flag = lc_a
        i_server        = lw_host-name
      IMPORTING
        o_location_flag = lv_ubicacion
        o_path          = lv_path
        abend_flag      = lv_abend
      EXCEPTIONS
        rfc_error       = 1
        error_with_gui  = 2
        OTHERS          = 3.

*-Si se obtiene un path
    IF sy-subrc    IS INITIAL AND
       NOT lv_path IS INITIAL AND
       lv_abend    IS INITIAL.

*-Devuelvo ruta al parametro de selección
      p_file = lv_path.

    ENDIF.

  ENDIF.

---

Technorati tags: sdn blogger

Transacción CG3Y – Copiar archivo del servidor a nuestra computadora

Con la transacción CG3Y vamos a poder copiar un archivo alojado en el servidor en nuestra computadora.

Es muy sencillo, basta con pasar la ruta completa de origen y la de destino. Y elegir el formato de transferencia que puede ser ASC o BIN

---

Technorati tags: sdn blogger