Cita de: FuryNocturn en 19 Dic 2017, 12:21
si pero si se desactiva los malware que atacan a sap podrían ejecutarse, es mejor crear la regla para una carpeta en concreto que es lo que realize, de esa manera solo abres esa carpeta y el resto del equipo queda protegido. gracias por tu ayuda.

Muy bueno... Desconocía esta parte.

Muchas gracias!!

Yo creo que te refieres a la imagen que te adjunto.




Prueba y nos dices.

Hola,

Tengo un problema con el formulario de compras MEDRUCK.

Resulta que un Sapscript me lo saca con los decimales en formato americano y otros con formato Español (por poner un ejemplo).

Y no encuentro la manera de saber en que se basa Sap para determinar estos cambios.


Gracias!

Hola,

Intenta aplicar este ejemplo, lo puedes seguir en el siguiente programa en SAP SAPRDEMO_MAILMERGE_INTERFACE



  data: app type vrm_id.


  clear applist.
  value2-key = 'WORDPRO'.
  value2-text = 'WORDPRO'.
  append value2 to applist.

  value2-key = 'WORD'.
  value2-text = 'WORD'.
  append value2 to applist.

  CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            ID     = 'app'
            VALUES = applist.

  app = 'WORD'.

Como se puede hacer un PROTECT... ENDPROTECT en un Smartforms?


Gracias...

Puedes usar la función: EPS_GET_DIRECTORY_LISTING

Hola, acabo de instalar el MiniSAP pero las tablas de ejemplo no están cargadas.

He visto en algún foro que explicaba que ejecutando el programa S_FLIGHT_MODEL_DATA_GENERATOR se cargaban pero ese programa no existe en mi MiniSAP.

Existe alguna otra manera de cargarlas?


Gracias...

En la transacción GRAL tienes un montón de ejemplos, igual ves algo interesante.


Un saludo.

Hola,

te dejo un ejemplo de un ALV con objetos bastante resumido.

Recuerda que tienes que crearte el CONTAINER en el MODULE POOL.


Este sería el código del programa.

*&---------------------------------------------------------------------*
*& Report  ZALV_OO_SENCILLO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZALV_OO_SENCILLO.

************************************************************************
* INCLUDE
************************************************************************
INCLUDE: zalv.

************************************************************************
* TABLES
************************************************************************
TABLES: mara,             " Datos generales material
        marc,             " Datos centro p.material
        mard,             " Datos de almacén para el material
        makt.             " Textos breves de material




************************************************************************
*DATA
************************************************************************
DATA: BEGIN OF gt_listado OCCURS 0,
        matnr               LIKE mara-matnr,       " Material
        werks               LIKE mard-werks,       " Centro
        lgort               LIKE mard-lgort,       " Almacen
        mtart               LIKE mara-mtart,       " Tipo Material
        eisbe_uv            LIKE marc-eisbe,       " Stock seguridad
        eisbe_umb           LIKE marc-eisbe,       " Stock seguridad
        mabst_uv            LIKE marc-mabst,       " Stock máximo
        mabst_umb           LIKE marc-mabst,       " Stock máximo
        maktx               LIKE makt-maktx,       " Descrip. material
        color_celdas        TYPE lvc_t_scol,
      END OF gt_listado.




DATA: g_container_listado     TYPE scrfname VALUE 'CONTAINER_LISTADO',
      go_grid_listado         TYPE REF TO cl_gui_alv_grid,
      go_custom_container     TYPE REF TO cl_gui_custom_container.

DATA: gt_f4                   TYPE lvc_t_f4.
DATA: gs_f4                   TYPE lvc_s_f4.

DATA: gs_layout               TYPE lvc_s_layo.
DATA: gs_variant              TYPE disvariant.

DATA: gs_fieldcat             TYPE lvc_s_fcat.
DATA: gt_fieldcat             TYPE lvc_t_fcat.

DATA: gs_fieldtab             TYPE slis_fieldcat_alv.

DATA: gt_sort                 TYPE lvc_t_sort.

DATA: gf_okcode               TYPE ok.

FIELD-SYMBOLS: <fieldcat>     TYPE lvc_s_fcat.


*---------------------------------------------------------------------*
*       CLASS LCL_EVENT_RECEIVER DEFINITION
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.

    METHODS handle_data_changed
      FOR EVENT data_changed OF cl_gui_alv_grid
      IMPORTING er_data_changed.

    METHODS handle_data_changed_finished
      FOR EVENT data_changed_finished OF cl_gui_alv_grid
      IMPORTING e_modified
                et_good_cells.

    METHODS handle_toolbar
    FOR EVENT toolbar OF cl_gui_alv_grid
        IMPORTING e_object e_interactive.


    METHODS handle_user_command
    FOR EVENT user_command OF cl_gui_alv_grid
        IMPORTING e_ucomm.

ENDCLASS.                    "lcl_event_receiver DEFINITION


*---------------------------------------------------------------------*
*       CLASS lcl_event_receiver IMPLEMENTATION
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.

  METHOD handle_data_changed.
    PERFORM data_changed USING er_data_changed.
  ENDMETHOD.                    "handle_data_changed


  METHOD handle_data_changed_finished.
    PERFORM data_changed_finished USING e_modified
                                        et_good_cells.
  ENDMETHOD.                    "handle_data_changed_finished



  METHOD handle_toolbar.
    PERFORM barra_herramientas USING e_object
                                     e_interactive.
  ENDMETHOD.                    "handle_toolbar


  METHOD handle_user_command.
    PERFORM user_command USING e_ucomm.
  ENDMETHOD.                    "handle_user_command

ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION





************************************************************************
*SELECTION-SCREEN
************************************************************************
SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME.

SELECT-OPTIONS: s_werks FOR mard-werks.           " Centro
SELECT-OPTIONS: s_lgort FOR mard-lgort.           " Almacen
SELECT-OPTIONS: s_mtart FOR mara-mtart.           " Tipo Material
SELECT-OPTIONS: s_matnr FOR mara-matnr.           " Material

SELECTION-SCREEN END OF BLOCK b01.






************************************************************************
*START-OF-SELECTION
************************************************************************
START-OF-SELECTION.


  PERFORM recuperar_datos.

  PERFORM datos_listado.

************************************************************************
*END-OF-SELECTION
************************************************************************
END-OF-SELECTION.

  PERFORM mostrar_listado.













*&---------------------------------------------------------------------*
*&      Form  recuperar_datos
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM recuperar_datos .

  SELECT mara~matnr
         marc~werks
*         mard~lgort
         mara~mtart
         marc~eisbe
         marc~mabst
         makt~maktx
  INTO (gt_listado-matnr,
        gt_listado-werks,
*        gt_listado-lgort,
        gt_listado-mtart,
        gt_listado-eisbe_uv,
        gt_listado-mabst_uv,
        gt_listado-maktx)
  FROM marc AS marc
  INNER JOIN mara AS mara
     ON mara~matnr EQ marc~matnr
  INNER JOIN makt AS makt
     ON makt~matnr EQ mara~matnr
*  INNER JOIN mard AS mard
*     ON mard~matnr EQ makt~matnr
*    AND mard~werks EQ marc~werks

  WHERE mara~matnr IN s_matnr
    AND marc~werks IN s_werks
*    AND mard~lgort IN s_lgort
    AND mara~mtart IN s_mtart
    AND makt~spras EQ sy-langu.

    APPEND gt_listado.
    CLEAR  gt_listado.
  ENDSELECT.

ENDFORM.                    " recuperar_datos

*&---------------------------------------------------------------------*
*&      Form  datos_listado
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM datos_listado .

  LOOP AT gt_listado.
    PERFORM md_convert_material_unit USING gt_listado-matnr
                                           gt_listado-eisbe_uv
                                           gt_listado-eisbe_umb.

    PERFORM md_convert_material_unit USING gt_listado-matnr
                                           gt_listado-mabst_uv
                                           gt_listado-mabst_umb.

    MODIFY gt_listado.
    CLEAR  gt_listado.
  ENDLOOP.

ENDFORM.                    " datos_listado

*&---------------------------------------------------------------------*
*&      Form  mostrar_listado
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM mostrar_listado .

  repname = sy-repid.

* Descripción estándar de campos
  PERFORM obt_descrip_campos_tabla USING repname 'GT_LISTADO'.

  CLEAR gt_fieldcat[].

  LOOP AT fieldtab INTO gs_fieldtab.
    CLEAR gs_fieldcat.
    gs_fieldcat-fieldname  = gs_fieldtab-fieldname.
    gs_fieldcat-ref_field  = gs_fieldtab-ref_fieldname.
    gs_fieldcat-ref_table  = gs_fieldtab-ref_tabname.
    gs_fieldcat-outputlen  = gs_fieldtab-outputlen.
    gs_fieldcat-key        = gs_fieldtab-key.
    gs_fieldcat-tabname    = 'GT_LISTADO'.
    gs_fieldcat-scrtext_l  = gs_fieldtab-seltext_l.
    gs_fieldcat-scrtext_m  = gs_fieldtab-seltext_m.
    gs_fieldcat-scrtext_s  = gs_fieldtab-seltext_s.
    gs_fieldcat-coltext    = gs_fieldtab-seltext_m.
    gs_fieldcat-selddictxt = 'L'.


    IF    gs_fieldtab-fieldname = 'EISBE_UV'
       OR gs_fieldtab-fieldname = 'MABST_UV'.

      gs_fieldcat-edit = 'X'.
    ENDIF.


    APPEND gs_fieldcat TO gt_fieldcat.
  ENDLOOP.

* Cambio de descripciones
  PERFORM cambio_descripcion USING:
    'EISBE_UV'         text-l01  text-l01  text-l01  text-l01,
    'EISBE_UMB'        text-l02  text-l02  text-l02  text-l02,
    'MABST_UV'         text-l03  text-l03  text-l03  text-l03,
    'MABST_UMB'        text-l04  text-l04  text-l04  text-l04.


* Se fijan los campos claves
  PERFORM eliminar_o_fijar_campo_clave USING: 'MATNR'    'X',
                                              'WERKS'    ' ',
                                              'LGORT'    ' ',
                                              'MTART'    ' '.


  CALL SCREEN 9001.

ENDFORM.                    " mostrar_listado

*&---------------------------------------------------------------------*
*&      Form  barra_herramientas
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM barra_herramientas  USING rr_object TYPE REF TO
                                         cl_alv_event_toolbar_set
                               pf_e_interactive.

  DATA: ls_toolbar            TYPE stb_button.


* Se añade un separador
  CLEAR ls_toolbar.
  MOVE 3 TO ls_toolbar-butn_type.
  APPEND ls_toolbar TO rr_object->mt_toolbar.

* Añadimos icono Grabar
  CLEAR ls_toolbar.
  MOVE 'OK_SAVE' TO ls_toolbar-function.
  MOVE icon_system_save TO ls_toolbar-icon.
  MOVE 'Grabar'(ic2) TO ls_toolbar-quickinfo.
* MOVE 'Grabar'(ic2) TO ls_toolbar-text.
  MOVE ' ' TO ls_toolbar-disabled.
  APPEND ls_toolbar TO rr_object->mt_toolbar.

ENDFORM.                    " barra_herramientas

*&---------------------------------------------------------------------*
*&      Form  data_changed
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM data_changed USING  rr_data_changed TYPE REF TO
                                         cl_alv_changed_data_protocol.

  DATA: ls_mod_cells          TYPE lvc_s_modi.
  DATA: lf_busab              TYPE t001s-busab.
  DATA: ls_t001s              LIKE t001s.
  DATA: lf_vendedor           LIKE zvbrk_mex-vendedor.
  DATA: ls_lfa1               LIKE lfa1.
  DATA: lf_fecha              LIKE sy-datum.
  DATA: lf_folio_acuse        LIKE zvbrk_mex-folio_acuse.
  DATA: lf_observaciones      LIKE zvbrk_mex-observaciones.
  DATA: ls_zvbrk_mex          LIKE gt_listado.
  DATA: ls_cellcolor          TYPE lvc_s_scol .
  DATA: ls_is_stable          TYPE lvc_s_stbl.

  DATA: lf_eisbe_uv           LIKE marc-eisbe.
  DATA: lf_mabst_uv           LIKE marc-mabst.

  DATA: lf_et_index_rows      TYPE lvc_t_row,
        lf_et_row_no          TYPE lvc_t_roid.


  CALL METHOD go_grid_listado->get_selected_rows
    IMPORTING
      et_index_rows = lf_et_index_rows
      et_row_no     = lf_et_row_no.



  LOOP AT rr_data_changed->mt_mod_cells INTO ls_mod_cells.

    READ TABLE gt_listado INDEX ls_mod_cells-row_id.

    CASE ls_mod_cells-fieldname.

      WHEN 'EISBE_UV'.
        CALL METHOD rr_data_changed->get_cell_value
          EXPORTING
            i_row_id    = ls_mod_cells-row_id
            i_fieldname = ls_mod_cells-fieldname
          IMPORTING
            e_value     = lf_eisbe_uv.

        gt_listado-eisbe_uv = lf_eisbe_uv.

        DELETE gt_listado-color_celdas
        WHERE fname = ls_mod_cells-fieldname.
        IF ls_zvbrk_mex-eisbe_uv <> gt_listado-eisbe_uv.
          CLEAR ls_cellcolor.
          ls_cellcolor-fname     = ls_mod_cells-fieldname.
          ls_cellcolor-color-col = '7' .
          ls_cellcolor-color-int = '1'.
          APPEND ls_cellcolor TO gt_listado-color_celdas.
        ENDIF.

        PERFORM md_convert_material_unit USING gt_listado-matnr
                                               gt_listado-eisbe_uv
                                               gt_listado-eisbe_umb.

        MODIFY gt_listado INDEX ls_mod_cells-row_id.



      WHEN 'MABST_UV'.
        CALL METHOD rr_data_changed->get_cell_value
          EXPORTING
            i_row_id    = ls_mod_cells-row_id
            i_fieldname = ls_mod_cells-fieldname
          IMPORTING
            e_value     = lf_mabst_uv.

        gt_listado-mabst_uv = lf_mabst_uv.

        DELETE gt_listado-color_celdas
        WHERE fname = ls_mod_cells-fieldname.
        IF ls_zvbrk_mex-mabst_uv <> gt_listado-mabst_uv.
          CLEAR ls_cellcolor.
          ls_cellcolor-fname     = ls_mod_cells-fieldname.
          ls_cellcolor-color-col = '7' .
          ls_cellcolor-color-int = '1'.
          APPEND ls_cellcolor TO gt_listado-color_celdas.
        ENDIF.

        PERFORM md_convert_material_unit USING gt_listado-matnr
                                               gt_listado-mabst_uv
                                               gt_listado-mabst_umb.

        MODIFY gt_listado INDEX ls_mod_cells-row_id.

    ENDCASE.

  ENDLOOP.


  CALL METHOD go_grid_listado->set_selected_rows
    EXPORTING
      it_index_rows = lf_et_index_rows
      it_row_no     = lf_et_row_no.



ENDFORM.                    " data_changed

*---------------------------------------------------------------------*
*       MODULE PBO OUTPUT                                             *
*---------------------------------------------------------------------*
MODULE pbo OUTPUT.
  PERFORM pbo_output.
ENDMODULE.                    "pbo OUTPUT

*---------------------------------------------------------------------*
*       MODULE PAI INPUT                                              *
*---------------------------------------------------------------------*
MODULE pai INPUT.
  PERFORM pai_input.
ENDMODULE.                    "pai INPUT



*&---------------------------------------------------------------------*
*&      Form  pbo_output
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM pbo_output.


  DATA: lo_event_receiver     TYPE REF TO lcl_event_receiver.

  DATA: lt_it_toolbar_excluding
                              TYPE ui_functions.

  SET PF-STATUS 'MAIN100'.
  SET TITLEBAR 'T9001_1'.

  IF go_custom_container IS INITIAL.
    CREATE OBJECT go_custom_container
      EXPORTING
        container_name = g_container_listado.

    CREATE OBJECT go_grid_listado
      EXPORTING
        i_parent = go_custom_container.

    CREATE OBJECT lo_event_receiver.
    SET HANDLER lo_event_receiver->handle_data_changed
                 FOR go_grid_listado.

    SET HANDLER lo_event_receiver->handle_data_changed_finished
                 FOR go_grid_listado.


    SET HANDLER lo_event_receiver->handle_user_command
                    FOR go_grid_listado.
    SET HANDLER lo_event_receiver->handle_toolbar FOR go_grid_listado.


    CALL METHOD go_grid_listado->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_enter.

    gs_layout-zebra      = 'X'.
    gs_layout-cwidth_opt = 'X'.

*  gs_layout-grid_title

    gs_layout-ctab_fname = 'COLOR_CELDAS'.
    gs_layout-no_rowmark = 'X'.

    gs_variant-report    = 'ZALV_OO_SENCILLO'.

    PERFORM excluir_ok_codigos TABLES lt_it_toolbar_excluding.



    CALL METHOD go_grid_listado->set_table_for_first_display
      EXPORTING                     " i_buffer_active = 'X'
        i_save               = 'A'
        is_variant           = gs_variant
        is_layout            = gs_layout
        it_toolbar_excluding = lt_it_toolbar_excluding
      CHANGING
        it_fieldcatalog      = gt_fieldcat
        it_sort              = gt_sort
        it_outtab            = gt_listado[].

  ENDIF.

ENDFORM.                    " pbo_output

*&---------------------------------------------------------------------*
*&      Form  pai_input
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM pai_input.

  CASE gf_okcode.
    WHEN 'EXIT'.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.
  CLEAR gf_okcode.

ENDFORM.                    " pai_input

*&---------------------------------------------------------------------*
*&      Form  excluir_ok_codigos
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM excluir_ok_codigos  TABLES   pt_it_toolbar_excluding.

  DATA: lf_ui_func            TYPE ui_func.


  lf_ui_func = go_grid_listado->mc_fc_loc_append_row.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.

  lf_ui_func = go_grid_listado->mc_fc_loc_copy.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.
  lf_ui_func = go_grid_listado->mc_fc_loc_copy_row.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.


  lf_ui_func = go_grid_listado->mc_fc_loc_cut.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.
  lf_ui_func = go_grid_listado->mc_fc_loc_delete_row.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.
  lf_ui_func = go_grid_listado->mc_fc_loc_insert_row.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.
  lf_ui_func = go_grid_listado->mc_fc_loc_move_row.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.
  lf_ui_func = go_grid_listado->mc_fc_loc_paste.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.
  lf_ui_func = go_grid_listado->mc_fc_loc_paste_new_row.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.
  lf_ui_func = go_grid_listado->mc_fc_loc_undo.
  APPEND lf_ui_func TO pt_it_toolbar_excluding.

ENDFORM.                    " excluir_ok_codigos

*&---------------------------------------------------------------------*
*&      Form  user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM user_command USING pf_e_ucomm TYPE syucomm.

  DATA: ls_is_stable          TYPE lvc_s_stbl.


  CASE pf_e_ucomm.
    WHEN 'OK_SAVE'.

      LOOP AT gt_listado.  " WHERE marca = 'X'.
        CLEAR marc.
        SELECT SINGLE * FROM marc
                WHERE matnr = gt_listado-matnr
                  AND werks = gt_listado-werks.

        IF gt_listado-eisbe_uv <> marc-eisbe.
          MOVE gt_listado-eisbe_uv TO marc-eisbe.
          MODIFY marc.
        ENDIF.

        IF gt_listado-mabst_uv <> marc-mabst.
          MOVE gt_listado-mabst_uv TO marc-mabst.
          MODIFY marc.
        ENDIF.
      ENDLOOP.

      IF sy-subrc <> 0.
*------ No se han seleccionado registros
        MESSAGE s324(zy).
      ELSE.
*------ Se han actualizado los datos
        MESSAGE s411(zy).

        ls_is_stable-row = 'X'.
        ls_is_stable-col = 'X'.

        CALL METHOD go_grid_listado->refresh_table_display
          EXPORTING
            is_stable = ls_is_stable.

      ENDIF.


  ENDCASE.

ENDFORM.                    " user_command

*&---------------------------------------------------------------------*
*&      Form  eliminar_o_fijar_campo_clave
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM eliminar_o_fijar_campo_clave USING pf_fieldname
                                        pf_valor.

  READ TABLE gt_fieldcat WITH KEY fieldname = pf_fieldname
     ASSIGNING <fieldcat>.
  IF sy-subrc EQ 0.
    <fieldcat>-key = pf_valor.
  ENDIF.

ENDFORM.                    " eliminar_o_fijar_campo_clave

*&---------------------------------------------------------------------*
*&      Form  data_changed_finished
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM data_changed_finished  USING  e_modified
                                   et_good_cells TYPE lvc_t_modi.

  DATA: ls_is_stable          TYPE lvc_s_stbl.


  IF NOT e_modified IS INITIAL.

    ls_is_stable-row = 'X'.
    ls_is_stable-col = 'X'.

    CALL METHOD go_grid_listado->refresh_table_display
      EXPORTING
        is_stable = ls_is_stable.

  ENDIF.

ENDFORM.                    " data_changed_finished

*&---------------------------------------------------------------------*
*&      Form  cambio_descripcion
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM cambio_descripcion USING pf_fieldname
                              pf_scrtext_l
                              pf_scrtext_m
                              pf_scrtext_s
                              pf_coltext.

  READ TABLE gt_fieldcat WITH KEY fieldname = pf_fieldname
     ASSIGNING <fieldcat>.
  IF sy-subrc EQ 0.
    <fieldcat>-scrtext_l    = pf_scrtext_l.
    <fieldcat>-scrtext_m    = pf_scrtext_m.
    <fieldcat>-scrtext_s    = pf_scrtext_s.
    <fieldcat>-coltext      = pf_coltext.
  ENDIF.


ENDFORM.                    " cambio_descripcion
*&---------------------------------------------------------------------*
*&      Form  md_convert_material_unit
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GT_LISTADO_MATNR  text
*      -->P_GT_LISTADO_EISBE_UV  text
*      -->P_GT_LISTADO_EISBE_UMB  text
*----------------------------------------------------------------------*
FORM md_convert_material_unit  USING    p_matnr
                                        p_in_uv
                                        p_out_umb.

  DATA: aux_unit_in  LIKE ekpo-menge,
        aux_unit_out LIKE ekpo-menge,
        lf_meins     LIKE mara-meins.

  SELECT SINGLE meins INTO lf_meins FROM mara
          WHERE matnr = p_matnr.

  aux_unit_in  = p_in_uv.

  CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
    EXPORTING
      i_matnr              = p_matnr
      i_in_me              = 'UV'
      i_out_me             = lf_meins
      i_menge              = aux_unit_in
    IMPORTING
      e_menge              = aux_unit_out
    EXCEPTIONS
      error_in_application = 1
      error                = 2
      OTHERS               = 3.

  p_out_umb = aux_unit_out.


ENDFORM.                    " md_convert_material_unit



En el MODULE.

PROCESS BEFORE OUTPUT.
  MODULE pbo.

PROCESS AFTER INPUT.
  MODULE pai.


Espero que te sirva de algo.

Un Saludo.

Las líneas marcadas se recuperan con este método.


  DATA: lf_et_index_rows TYPE lvc_t_row,
        lf_et_row_no TYPE lvc_t_roid.



    CALL METHOD go_grid_listado->get_selected_rows
      IMPORTING
        et_index_rows = lf_et_index_rows
        et_row_no     = lf_et_row_no.



Un saludo.

Hola Neo_25,

Una vez dentro del formulario vete al menú de arriba a: Opciones / Form Painter...

Se abrirá una ventana y en la pestaña Sapscript marcas el checkbox donde pone Form Painter gráfico, el Editor PC gráfico lo dejas desmarcado.

De esta manera te saldrán los recuadros que comentas.

Lo que tu buscas no lo conozco, pero te puede servir esta función:

ISH_GET_DAY_OF_WEEK

Lo único que tienes que controlar son los días 6 y 7 que corresponden a los sábados y domingos.

Gracias por tu rápida respuesta, he estado mirando la transacción y es justo lo que necesito, pero he visto que no me sirve del todo al 100%.

Nosotros tenemos mas de un Servidor de Aplicación en Producción y esta función solo me muestra los resultados del Servidor en el que me encuentro.


¿Alguna otra opción?   


Muchas gracias.

Hola,

Esta es mi duda...

se puede controlar de alguna forma, que un programa que haya sigo lanzado a través de un JOB, y este a su vez se intente lanzar online, no lo deje lanzarlo hasta que no haya terminado el del JOB???


Gracias de antemano.

En este enlace puedes ver algo sobre SAP XI.

http://seguridadsap.blogspot.com/2007/05/qu-es-sap-xi.html

Y si alguien puede ampliar un poco, pues mucho mejor.

Un saludo.