Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - fjcarrillo

Páginas: [1]
1
Programación ABAP / Re: Ayuda con Creacion de Reporte.
« en: 24 de Noviembre de 2010, 06:52:43 pm »
Saludos,

En este caso, entiendo que te falta sacar el total etc. Lo único que deberías hacer, sería acumular en unas variables los datos de suma. Te pongo un código que he realizado y que hace lo que pides.. en este caso se sacan las medias de los precios... si fuese otro campo, tendrías que adaptarlo... Ten cuidado con el tamaño de línea del report y si ves que sale descuadrado, dale más longitud para que se vea bien..

Código: [Seleccionar]
REPORT  z_fjcm2 LINE-SIZE 71.

TYPES: BEGIN OF t_datos_aux,
  quotdate TYPE oicqp-quotdate ,
  price    TYPE oicqp-price.
TYPES: END OF t_datos_aux.

TYPES: BEGIN OF t_datos,
  quotdate TYPE oicqp-quotdate ,
  min      TYPE oicqp-price,
  media    TYPE oicqp-price,
  max      TYPE oicqp-price.

TYPES: END OF t_datos.

DATA: li_tabla    TYPE STANDARD TABLE OF t_datos,
      li_data_aux TYPE STANDARD TABLE OF t_datos_aux.

DATA: l_fecha_ini   TYPE sy-datum,
      l_fecha_fin   TYPE sy-datum,
      l_max_total   TYPE oicqp-price,
      l_min_total   TYPE oicqp-price,
      l_media_total TYPE oicqp-price,
      l_max_aux     TYPE oicqp-price,
      l_min_aux     TYPE oicqp-price,
      l_media_aux   TYPE oicqp-price,
      l_mes         TYPE char10,
      l_es_primero  TYPE boolean.

DATA: ls_tabla    TYPE t_datos,
      ls_data_aux TYPE t_datos_aux.


START-OF-SELECTION.


  REFRESH li_tabla.

  DO 12 TIMES.


    CLEAR: l_fecha_ini,
           l_fecha_fin.

* Obtenemos la fecha del mes
    PERFORM f_obtener_fecha USING    sy-index
                            CHANGING l_fecha_ini
                                     l_fecha_fin.

    REFRESH li_data_aux.
    SELECT quotdate price
      FROM oicqp
      INTO TABLE li_data_aux
      WHERE quotdate GE l_fecha_ini AND
            quotdate LE l_fecha_fin.

    IF sy-subrc NE 0.

*   Mostramos error si es necesario.

    ELSE.
      CLEAR: l_max_aux,
             l_media_aux,
             l_min_aux.
      l_es_primero = 'X'.

      LOOP AT li_data_aux INTO ls_data_aux.

        IF l_es_primero IS NOT INITIAL.
          l_max_aux = ls_data_aux-price.
          l_min_aux = ls_data_aux-price.
          CLEAR l_es_primero.
        ENDIF.
        IF ls_data_aux-price GT l_max_aux.
          l_max_aux = ls_data_aux-price.
        ENDIF.

        IF ls_data_aux-price LT l_min_aux.
          l_min_aux = ls_data_aux-price.

        ENDIF.

      ENDLOOP.

      l_media_aux = ( l_min_aux + l_max_aux ) / 2.

      CLEAR ls_tabla.
      ls_tabla-quotdate = l_fecha_fin.
      ls_tabla-min      = l_min_aux.
      ls_tabla-media    = l_media_aux.
      ls_tabla-max      = l_max_aux.
      APPEND ls_tabla TO li_tabla.

    ENDIF.



  ENDDO.


END-OF-SELECTION.


  IF li_tabla[] IS NOT INITIAL.



    WRITE: sy-uline,
           sy-vline,
           'Mes       ',
           sy-vline,
           'Mínimo          ',
           sy-vline,
           'Máximo          ',
           sy-vline,
           'Media           ',
           sy-vline,
           sy-uline.

    LOOP AT li_tabla INTO ls_tabla.


      PERFORM f_calcular_mes USING    ls_tabla-quotdate
                             CHANGING l_mes.
      WRITE: sy-vline,
             l_mes,
             sy-vline,
             ls_tabla-min,
             sy-vline,
             ls_tabla-max,
             sy-vline,
             ls_tabla-media,
             sy-vline,
             sy-uline.

      l_min_total   = l_min_total   + ls_tabla-min.
      l_media_total = l_media_total + ls_tabla-max.
      l_max_total   = l_max_total   + ls_tabla-media.

    ENDLOOP.

    WRITE: sy-vline,
           'TOTAL     ',
           sy-vline,
           l_min_total,
           sy-vline,
           l_media_total,
           sy-vline,
           l_max_total,
           sy-vline,
           sy-uline.

  ELSE.

*   Mostramos el error de que no hay datos.

  ENDIF.

*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_FECHA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_SY_TABIX  text
*----------------------------------------------------------------------*
FORM f_obtener_fecha USING    p_indice TYPE sy-tabix
                     CHANGING p_fecha_ini TYPE sy-datum
                              p_fecha_fin TYPE sy-datum.

  DATA: l_mes TYPE char2.

  CASE p_indice.
    WHEN 1.

      l_mes = '01'.

    WHEN 2.

      l_mes = '02'.


    WHEN 3.

      l_mes = '03'.

    WHEN 4.

      l_mes = '04'.

    WHEN 5.

      l_mes = '05'.

    WHEN 6.

      l_mes = '06'.

    WHEN 7.

      l_mes = '07'.

    WHEN 8.

      l_mes = '08'.

    WHEN 9.

      l_mes = '09'.

    WHEN 10.

      l_mes = '10'.

    WHEN 11.

      l_mes = '11'.

    WHEN 12.

      l_mes = '12'.

    WHEN OTHERS.

  ENDCASE.



  CONCATENATE sy-datum(4) l_mes '01' INTO p_fecha_ini.

  IF p_fecha_ini IS NOT INITIAL.
    CALL FUNCTION 'SG_PS_GET_LAST_DAY_OF_MONTH'
      EXPORTING
        day_in            = p_fecha_ini
      IMPORTING
        last_day_of_month = p_fecha_fin
      EXCEPTIONS
        day_in_not_valid  = 1
        OTHERS            = 2.

    IF sy-subrc NE 0.

      CLEAR p_fecha_ini.
      CLEAR p_fecha_fin.

    ENDIF.

  ENDIF.

ENDFORM.                    " F_OBTENER_FECHA

*&---------------------------------------------------------------------*
*&      Form  F_CALCULAR_MES
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LS_TABLA_QUOTDATE  text
*      <--P_L_MES  text
*----------------------------------------------------------------------*
FORM f_calcular_mes  USING    p_fecha TYPE sy-datum
                     CHANGING p_mes TYPE char10.

  CASE p_fecha+4(2).
    WHEN '01'.

      CONCATENATE sy-datum(4) '-Ene' INTO p_mes.
    WHEN '02'.
      CONCATENATE sy-datum(4) '-Feb' INTO p_mes.
    WHEN '03'.
      CONCATENATE sy-datum(4) '-Mar' INTO p_mes.
    WHEN '04'.
      CONCATENATE sy-datum(4) '-Abr' INTO p_mes.
    WHEN '05'.
      CONCATENATE sy-datum(4) '-May' INTO p_mes.
    WHEN '06'.
      CONCATENATE sy-datum(4) '-Jun' INTO p_mes.
    WHEN '07'.
      CONCATENATE sy-datum(4) '-Jul' INTO p_mes.
    WHEN '08'.
      CONCATENATE sy-datum(4) '-Ago' INTO p_mes.
    WHEN '09'.
      CONCATENATE sy-datum(4) '-Sep' INTO p_mes.
    WHEN '10'.
      CONCATENATE sy-datum(4) '-Oct' INTO p_mes.
    WHEN '11'.
      CONCATENATE sy-datum(4) '-Nov' INTO p_mes.
    WHEN '12'.
      CONCATENATE sy-datum(4) '-Dic' INTO p_mes.

  ENDCASE.

ENDFORM.                    " F_CALCULAR_MES




Páginas: [1]