ABAP Junior's

2017-08-23T08:16:00.002-07:00

Descargar XML y PDF adjuntos en la TCod VF02

PROGRAMA PRINCIPAL

*----------------------------------------------------------------------*
*        FABRICA DE SOFTWARE ABAP                                      *
*----------------------------------------------------------------------*
* Nombre del Programa: ZFIRE_DOWN_PDF_XML_INVOICE                      *
* Descripción        : Programa para descarga de PDF y XML.            *
* Desarrolador       : José Ángel Moreno Nieblas  JOSEMN               *
*----------------------------------------------------------------------*

REPORT zfire_down_pdf_xml_invoice.

*----------------------------------------------------------------------*
*             D E C L A R A C I O N  D E  I N C L U D E S              *
*----------------------------------------------------------------------*
INCLUDE: zfire_down_pdf_xml_invoice_def, "Definiciones de Clase.
         zfire_down_pdf_xml_invoice_imp, "Implementaciones de Clase.
         zfire_down_pdf_xml_invoice_top. "Declaraciones Globales.

*----------------------------------------------------------------------*
*           E V E N T O  I N I T I A L I Z A T I O N                   *
*----------------------------------------------------------------------*
INITIALIZATION.

  IF NOT og_down_pdf_xml IS BOUND.

    CREATE OBJECT og_down_pdf_xml.

  ENDIF.

*----------------------------------------------------------------------*
*           E V E N T O  S E L E C C T I O N - S C R E E N             *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_direc.
  p_direc = og_down_pdf_xml->get_directory( ).

*----------------------------------------------------------------------*
*         E V E N T O  S T A R T - O F - S E L E C T I O N             *
*----------------------------------------------------------------------*
START-OF-SELECTION.

  CALL METHOD og_down_pdf_xml->execute_process
    EXPORTING
      im_factura = p_vbeln
      im_rfc     = p_stcd1
      im_direc   = p_direc.

DEFINICIÓN DE CLASE LOCAL

*----------------------------------------------------------------------*
*        FABRICA DE SOFTWARE ABAP                                      *
*----------------------------------------------------------------------*
* Nombre del Programa: ZFIRE_DOWN_PDF_XML_INVOICE                      *
* Descripción        : Programa para descarga de PDF y XML.            *
* Desarrolador       : José Ángel Moreno Nieblas  JOSEMN               *
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
*       CLASS LCL_DOWN_PDF_XML DEFINITION                              *
*----------------------------------------------------------------------*
*       Clase local de definición para el reporte.                     *
*----------------------------------------------------------------------*
CLASS lcl_down_pdf_xml DEFINITION FINAL.

  PUBLIC SECTION.

    METHODS: get_directory "Obtener directorio
               RETURNING value(re_dir) TYPE string,
             execute_process
              IMPORTING
                im_factura TYPE vbrk-vbeln
                im_rfc TYPE kna1-stcd1
                im_direc TYPE string.


ENDCLASS.

IMPLEMENTACIÓN DE CLASE LOCAL

*----------------------------------------------------------------------*
*        FABRICA DE SOFTWARE ABAP                                      *
*----------------------------------------------------------------------*
* Nombre del Programa: ZFIRE_DOWN_PDF_XML_INVOICE                      *
* Descripción        : Programa para descarga de PDF y XML.            *
* Desarrolador       : José Ángel Moreno Nieblas  JOSEMN               *
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
*       CLASS LCL_DOWN_PDF_XML IMPLEMENTATION                          *
*----------------------------------------------------------------------*
*       Clase local de implementación para el reporte.                 *
*----------------------------------------------------------------------*
CLASS lcl_down_pdf_xml IMPLEMENTATION.

**--------------------------------------------------------------------**
** METHOD GET_DIRECTORY                                               **
**--------------------------------------------------------------------**
** Creado para obtener la ruta y nombre de archivo a cargar.          **
**--------------------------------------------------------------------**
** <-- a="" archivo="" archivos.="" call="" cl_gui_frontend_services="" contendra="" data:="" de="" descargar="" direcci="" directorio="" el="" excel...="" get_directory.="" la="" los="" method="" mostrar="" n="" obtener="" para="" pc="" pupup="" re_dir="" string.="" type="" vl_title="text-002." y="">directory_browse
      EXPORTING
        window_title         = vl_title
        initial_folder       = 'C:\'
      CHANGING
        selected_folder      = re_dir
      EXCEPTIONS
        cntl_error           = 1
        error_no_gui         = 2
        not_supported_by_gui = 3
        OTHERS               = 4.

    IF sy-subrc NE 0.

      CLEAR re_dir.

    ENDIF.

  ENDMETHOD.
**--------------------------------------------------------------------**
** METHOD EXECUTE_PROCESS                                             **
**--------------------------------------------------------------------**
** Creado ejecutar el proceso de descarga de PDF y XML.               **
**--------------------------------------------------------------------**
  METHOD execute_process. "EXECUTE_PROCESS

    DATA: sl_object      TYPE sibflporb,
          sl_options     TYPE obl_s_relt,
          sl_atta        TYPE obl_s_link,
          sl_hd          TYPE sofolenti1.

    DATA: tl_atta      TYPE obl_t_link,
          tl_content   TYPE STANDARD TABLE OF solisti1,
          tl_options   TYPE obl_t_relt.

    DATA: vl_name        TYPE char100,
          vl_type        TYPE string,
          vl_size        TYPE soxwd-doc_length,
          vl_document_id TYPE sofolenti1-doc_id,
          vl_ruta        TYPE char300.

    sl_object-instid = im_factura.
    sl_object-typeid = 'VBRK'.
    sl_object-catid  = 'BO'.

    sl_options-sign   = 'I'.
    sl_options-option = 'EQ'.
    sl_options-low    = 'ATTA'.
    APPEND sl_options TO tl_options.

    CALL METHOD cl_binary_relation=>read_links
      EXPORTING
        is_object           = sl_object
        it_relation_options = tl_options
      IMPORTING
        et_links            = tl_atta.

    LOOP AT tl_atta
       INTO sl_atta.

      vl_document_id = sl_atta-instid_b.

      CALL FUNCTION 'SO_DOCUMENT_READ_API1'
        EXPORTING
          document_id               = vl_document_id
       IMPORTING
         document_data              = sl_hd
       TABLES
         object_content             = tl_content
       EXCEPTIONS
         document_id_not_exist      = 1
         operation_no_authorization = 2
         x_error                    = 3
         OTHERS                     = 4.

      IF sy-subrc EQ 0.

        IF sl_hd-obj_type EQ 'XML'
          OR sl_hd-obj_type EQ 'PDF'.

          CONCATENATE im_rfc
                      '_'
                      im_factura
                      '.'
                      sl_hd-obj_type
                 INTO vl_name.

          CONCATENATE im_direc
                      '\'
                      vl_name
                 INTO vl_ruta.

          vl_type = 'BIN'.
          vl_size = sl_hd-doc_size.

          CALL FUNCTION 'SO_OBJECT_DOWNLOAD'
           EXPORTING
             bin_filesize           = vl_size
             filetype               = vl_type
             path_and_file          = vl_ruta
             no_dialog              = 'X'
            TABLES
              objcont               = tl_content
           EXCEPTIONS
             file_write_error       = 1
             invalid_type           = 2
             x_error                = 3
             kpro_error             = 4
             OTHERS                 = 5.

          IF sy-subrc NE 0.

          ENDIF.

        ENDIF.

      ENDIF.

    ENDLOOP.

  ENDMETHOD.                    "EXECUTE_PROCESS

ENDCLASS.

DECLARACIONES GLOBALES

*----------------------------------------------------------------------*
*        FABRICA DE SOFTWARE ABAP                                      *
*----------------------------------------------------------------------*
* Nombre del Programa: ZFIRE_DOWN_PDF_XML_INVOICE                      *
* Descripción        : Programa para descarga de PDF y XML.            *
* Desarrolador       : José Ángel Moreno Nieblas  JOSEMN               *
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* O B J E T O S                                                        *
*----------------------------------------------------------------------*
DATA: og_down_pdf_xml TYPE REF TO lcl_down_pdf_xml.

**--------------------------------------------------------------------**
** O P C I O N E S   D E   S E L E C C I Ó N   Y   P A R A M E T R O S**
**--------------------------------------------------------------------**
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.

PARAMETERS: p_vbeln TYPE vbrk-vbeln OBLIGATORY,
            p_stcd1 TYPE kna1-stcd1 OBLIGATORY,
            p_direc TYPE string OBLIGATORY.

SELECTION-SCREEN END OF BLOCK blk1.

ALV GRID: REPORTE DE NOMINA DE CONDUCTORES

2010-07-22T16:32:00.000-07:00

Programa Principal


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195                                    *
* Description          : The payroll driver commission report is used  *
*                        by the payroll department so that they can do *
*                        the commission payment freight to the         *
*                        employees or drivers.                         *
* Functional           : Joel Carrillo                                 *
* Developer            : Omar Garcia   EXCHNEO_F10                     *
* Creation Date        : 01.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195   Transport: ECDK901199                   *
*----------------------------------------------------------------------*
*                      MODIFICATIONS LOG                               *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195                                    *
* Description          : Change ALV List for ALV Grid                  *
* Functional           : Joel Carrillo                                 *
* Developer            : Carlos Antonio Flores Deras - EXCHNEO_F10     *
* Creation Date        : 12.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195.01   Transport: ECDK901199                *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195                                    *
* Description          : Change  Format Report List                    *
* Functional           : Joel Carrillo                                 *
* Developer            : Omar Garcia - EXCHNEO_F10                     *
* Creation Date        : 24.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195.99  ECDK901199                            *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195                                    *
* Description          : Create a Commission Report Copy               *
* Functional           : Orlando Solano                                *
* Developer            : Maria V. Guerrero - EXCHNEO_F10               *
* Creation Date        : 29.04.2009                                    *
* Requirement Number   : GCC_723.01      OT: ECDK903960                *
*----------------------------------------------------------------------*

REPORT  zggsdre195
       NO STANDARD PAGE HEADING
       LINE-SIZE  178
       LINE-COUNT 55.
*----------------------------------------------------------------------*
*INCLUDE DECLARATION                                                   *
*----------------------------------------------------------------------*
* Declaration Global
INCLUDE zggsdre195_a.
* Declaration Routine
INCLUDE zggsdre195_b.
* Declaration ALV.
INCLUDE zggsdre195_c.
*----------------------------------------------------------------------*
* Initialization                                                       *
*----------------------------------------------------------------------*
INITIALIZATION.
  v_repid = sy-repid.
*  BEGIN GCC_195.99 24.02.2009 EXCHNEO_F10 Change  Format Report List
  PERFORM f_variant_init.
  PERFORM f_call_variant.
*  END GCC_195.99 24.02.2009 EXCHNEO_F10 Change  Format Report List
**---------------------------------------------------------------------*
* AT SELECTION-SCREEN                                                  *
*----------------------------------------------------------------------*
*  BEGIN GCC_195.99 24.02.2009 EXCHNEO_F10 Change  Format Report List
* Process on value request
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
  PERFORM f_f4_for_variant.
*  END GCC_195.99 24.02.2009 EXCHNEO_F10 Change  Format Report List

AT SELECTION-SCREEN." OUTPUT.
  PERFORM f_output_screen.
*  BEGIN GCC_195.99 24.02.2009 EXCHNEO_F10 Change  Format Report List
  PERFORM f_vali_variant.
*  END GCC_195.99 24.02.2009 EXCHNEO_F10 Change  Format Report List
*----------------------------------------------------------------------*
*START OF SELECTION EVENT                                              *
*----------------------------------------------------------------------*
START-OF-SELECTION.
* BEGIN GCC_195.99 EXCHNEO_F10 31.03.2009
  PERFORM f_authority_check.
* END   GCC_195.99 EXCHNEO_F10 31.03.2009
* Call Select Data
  PERFORM f_select_data.

* Call Read Tables
  PERFORM f_read_tables.
* Call ALV
  PERFORM f_alv.

*>> BEGIN GCC_195.99 EXCHNEO_F10 19.02.2009 Change  Format Report List
*  Shows the list report page-break by Freight Carrier
  IF sy-ucomm EQ c_code.       " &PRINT

*    PERFORM f_header. " DELETE GCC_195.99 EXCHNEO_F10 24.02.2009
    " Change  Format Report List
    PERFORM f_detail.

* BEGIN GCC_723 EXCHNEO_F10 29.04.2009
  ELSEIF sy-ucomm EQ c_code2.

    PERFORM f_detail2.
* END GCC_723 EXCHNEO_F10 29.04.2009
  ENDIF.
*>> END   GCC_195.99 EXCHNEO_F10 19.02.2009 Change  Format Report List

*  BEGIN DELETE GCC_195.99 24.02.2009 EXCHNEO_F10
*  Change  Format Report List
*  top-of-page.
*
*  new-page.
*
*  perform f_format.
*  END GCC_195.99 24.02.2009 EXCHNEO_F10 Change  Format Report List

Include de Declaraciones


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195_A                                  *
* Description          : The payroll driver commission report is used  *
*                        by the payroll department so that they can do *
*                        the commission payment freight to the         *
*                        employees or drivers.                         *
* Functional           : Joel Carrillo                                 *
* Developer            : Omar Garcia   EXCHNEO_F10                     *
* Creation Date        : 01.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195   Transport: ECDK901199                   *
*----------------------------------------------------------------------*
*                      MODIFICATIONS LOG                               *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195_A                                  *
* Description          : Change ALV List for ALV Grid                  *
* Functional           : Joel Carrillo                                 *
* Developer            : Carlos Antonio Flores Deras - EXCHNEO_F10     *
* Creation Date        : 12.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195.01   Transport: ECDK901199                *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195_A                                  *
* Description          : Change  Format Report List                    *
* Functional           : Joel Carrillo                                 *
* Developer            : Omar Garcia - EXCHNEO_F10                     *
* Creation Date        : 24.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195.99  ECDK901199                            *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195_A                                  *
* Description          : Create a Commission Report Copy               *
* Functional           : Orlando Solano                                *
* Developer            : Maria V. Guerrero - EXCHNEO_F10               *
* Creation Date        : 29.04.2009                                    *
* Requirement Number   : GCC_723         OT: ECDK902057                *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195                                    *
* Description          : Search the condition type: KONV-KSCHL=” ZTC1” *
*                        ” ZTC2” ZTC3”,” ZTC4”,” ZTC5”,” ZTC6”         *
* Functional           : Julian Luna                                   *
* Developer            : Erika Bandilla  - EXCHNEO_F14                 *
* Creation Date        : 04.05.2009                                    *
* Requirement Number   : GCC_723.01           OT: ECDK903960           *
*----------------------------------------------------------------------*

*--------------------------------------------------------------------*
*  T A B L E S                                                       *
*--------------------------------------------------------------------*
TABLES: likp,
        vbpa,
        MVKE.
*----------------------------------------------------------*
* DECLARATION TYPES POOLS                                  *
*----------------------------------------------------------*
TYPE-POOLS: slis.
*----------------------------------------------------------*
* DECLARATION TYPES                                        *
*----------------------------------------------------------*
* BEGIN GCC_195.99 EXCHNEO_F10 31.03.2009
TYPES: BEGIN OF ty_tvko, "Organizational Unit: Sales organizations
         vkorg TYPE vkorg,           "Sales Organization
       END OF ty_tvko.
* END GCC_195.99 EXCHNEO_F10 31.03.2009
TYPES:BEGIN OF ty_likp,
        vbeln TYPE likp-vbeln,
        vkorg TYPE likp-vkorg,
        lfart TYPE likp-lfart,"GCC_723.01 EXCHNEO_F14 04.05.2009
        lfdat TYPE likp-lfdat,
        traid TYPE likp-traid,"GCC_723 EXCHNEO_F10 29.04.2009
        lifex TYPE likp-lifex,
        knump TYPE likp-knump,"GCC_723.01 EXCHNEO_F14 04.05.2009
      END OF ty_likp,

      BEGIN OF ty_vbpa,
        vbeln TYPE vbpa-vbeln,
        parvw TYPE vbpa-parvw,
        kunnr TYPE vbpa-kunnr,
        lifnr TYPE vbpa-lifnr,
        pernr TYPE vbpa-pernr,
      END OF ty_vbpa,

      BEGIN OF ty_lips,
        vbeln TYPE lips-vbeln,
        posnr TYPE lips-posnr,
        matnr TYPE lips-matnr,
        lfimg TYPE lips-lfimg,
        vgbel TYPE lips-vgbel,
        vgpos TYPE lips-vgpos,"GCC_723.01 EXCHNEO_F14 04.05.2009
        vgtyp TYPE lips-vgtyp,"GCC_723 EXCHNEO_F10 29.04.2009
      END OF ty_lips,

      BEGIN OF ty_vbak,
        vbeln TYPE vbak-vbeln,
        knumv TYPE vbak-knumv,
      END OF ty_vbak,

      BEGIN OF ty_konv,
        knumv TYPE konv-knumv,
        kposn TYPE konv-kposn,
        kschl TYPE konv-kschl,
        kbetr TYPE konv-kbetr,
        kwert TYPE konv-kwert,
        kinak TYPE konv-kinak, "GCC_723.01 EXCHNEO_F14 04.05.2009
      END OF ty_konv,

      BEGIN OF ty_kna1,
        kunnr TYPE kna1-kunnr,
        name1 TYPE kna1-name1,
      END OF ty_kna1,

      BEGIN OF ty_pernr,
        pernr TYPE kna1-kunnr,
      END OF ty_pernr,


      BEGIN OF ty_lfa1,
        lifnr TYPE lfa1-lifnr,
        name1 TYPE lfa1-name1,
      END OF ty_lfa1,

      BEGIN OF ty_mvke,
        matnr TYPE mvke-matnr,
        vkorg TYPE mvke-vkorg,
        prodh TYPE mvke-prodh,
      END OF ty_mvke,

      BEGIN OF ty_t179,
        prodh TYPE t179-prodh,
        vtext TYPE t179t-vtext,
      END OF ty_t179,

      BEGIN OF ty_pa9001,
        pernr TYPE pa9001-pernr,
        dvr_com_perc   TYPE pa9001-dvr_com_perc,
      END OF ty_pa9001,

      BEGIN OF ty_lfm1,
        lifnr TYPE lfm1-lifnr,
        ekorg TYPE lfm1-ekorg,
        minbw TYPE lfm1-minbw,
      END OF ty_lfm1,

      BEGIN OF ty_display,
        driverzd  TYPE likp-vbeln,
        comision  TYPE pa9001-dvr_com_perc,
        total     TYPE wertv12,
        name      TYPE kna1-name1,
        typess    TYPE t179t-vtext,
        date      TYPE likp-lfdat,
        number    TYPE likp-lifex,
        tons      TYPE lips-lfimg,
        driver    TYPE konv-kbetr,
        extended  TYPE wertv12,
        billing   TYPE konv-kbetr,
        extended1 TYPE wertv12,
        vbeln     TYPE likp-vbeln,
        traid     TYPE likp-traid,"GCC_723 EXCHENEO_F10 29.04.2009
        kposn     type konv-kposn,"GCC_723.01 EXCHENEO_F14 04.05.2009
       END OF ty_display,

       BEGIN OF ty_display2,
          typess TYPE t179t-vtext,
          driver TYPE wertv12,
          truck TYPE wertv12,
       END OF ty_display2,

        BEGIN OF ty_sort,
         spos TYPE alvdynp-sortpos,"
         fieldname TYPE slis_fieldname,
         tabname TYPE slis_fieldname,
         up TYPE alvdynp-sortup, "
         down TYPE alvdynp-sortdown, "
         group TYPE alvdynp-grouplevel, "
         subtot TYPE alvdynp-subtotals, "
         comp(1) TYPE c,
         expa(1) TYPE c,
         obligatory(1) TYPE c,
         END OF ty_sort,
*>> BEGIN  GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
        BEGIN OF ty_typess,
         vtext  TYPE bezei40, "Description
        END OF ty_typess,
*<< END  GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List

        begin of ty_hierachy,
           prodh type MVKE-PRODH,
           vtext TYPE t179t-vtext,
        end of ty_hierachy.

*----------------------------------------------------------*
* DECLARATION CONSTANT                                     *
*----------------------------------------------------------*
CONSTANTS:
       c_leahig(12) TYPE c VALUE 'S_LEASE-HIGH',
       c_lealow(11) TYPE c VALUE 'S_LEASE-LOW',
       c_drihig(12) TYPE c VALUE 'S_DRIVE-HIGH',
       c_drilow(11) TYPE c VALUE 'S_DRIVE-LOW',
       c_x          TYPE c VALUE 'X',
       c_a          TYPE c VALUE 'A',
       c_e          TYPE c VALUE 'E',"GCC_723.01 EXCHNEO_F10 31.03.2009
       c_off        TYPE c VALUE '0',
       c_zd(2)      TYPE c VALUE 'ZD',
       c_cr(2)      TYPE c VALUE 'SP',
       c_ztc1(4)    TYPE c VALUE 'ZTC1',
** BEGIN GCC_723.01 EXCHNEO_F14 04.05.2009
       c_ztc2(4)    TYPE c VALUE 'ZTC2',
       c_ztc3(4)    TYPE c VALUE 'ZTC3',
       c_ztc4(4)    TYPE c VALUE 'ZTC4',
       c_ztc5(4)    TYPE c VALUE 'ZTC5',
       c_ztc6(4)    TYPE c VALUE 'ZTC6',
       c_znlc(4)    TYPE c VALUE 'ZNLC',
       c_zel(3)     TYPE c VALUE 'ZEL',
       c_zlf(3)     TYPE c VALUE 'ZLF',
       c_zpr5(4)    TYPE c VALUE 'ZPR5',
       c_zpr4(4)    TYPE c VALUE 'ZPR4',
       c_zpr0(4)    TYPE c VALUE 'ZPR0',
** END GCC_723.01 EXCHNEO_F14 04.05.2009
       c_zpr1(4)    TYPE c VALUE 'ZPR1',
       c_porc(1)    TYPE c VALUE '%',
       c_line(1)    TYPE c VALUE '|',
       c_save(1)           VALUE 'A',
       c_otcg(4)    TYPE c VALUE 'OTCG',
       C_ZLR(3)     TYPE C VALUE 'ZLR', "GCC_723.014 EXCHNEO_F14 30.05.2009
* Constant ALV
       c_i_display  TYPE dd02l-tabname VALUE 'I_DISPLAY',
       c_include_a  TYPE trdir-name    VALUE 'ZGGSDRE195_A',
*          c_usercom    TYPE slis_formname VALUE 'F_USER_COMMAND',
       c_pfestat    TYPE slis_formname VALUE 'F_STATUS_SET',
       c_tabdynp    TYPE slis_tabname  VALUE 'I_DISPLAY',
       c_tabdynm    TYPE slis_tabname  VALUE 'I_DISPALY2',
*>> BEGIN GCC_195.01 EXCHNEO_F10 11.02.2009
       c_s(1)       TYPE c             VALUE 'S',
       c_h(1)       TYPE c             VALUE 'H',
       c_v(1)       TYPE c             VALUE 'V',
       c_diag       TYPE c             VALUE '/',
       c_dp         TYPE c             VALUE ':',
       c_f_title    TYPE slis_formname VALUE 'F_ALV_TITLE',
*>> END   GCC_195.01 EXCHNEO_F10 11.02.2009
*>> BEGIN GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
       c_code       TYPE slis_formname VALUE 'FC01',
*  BEGIN  GCC_723 EXCHNEO_F10 29.04.2009
       c_code2      TYPE slis_formname VALUE 'FC02',
*  END  GCC_723 EXCHNEO_F10 29.04.2009
       c_f_user_command  TYPE slis_formname VALUE 'F_USER_COMMAND',
       c_f_pf_status_set TYPE slis_formname VALUE 'F_PF_STATUS_SET'.
*>> END   GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List

*----------------------------------------------------------*
* DECLARATION INTERNAL TABLE AND STRUCTURE                 *
*----------------------------------------------------------*
* STRUCTURE
DATA: w_tvko    TYPE ty_tvko," GCC_195.99 EXCHNEO_F10 31.03.2009
      w_likp    TYPE ty_likp,
      w_vbpa    TYPE ty_vbpa,
      w_pernr   TYPE ty_pernr,
      w_lips    TYPE ty_lips,
      w_vbak    TYPE ty_vbak,
      w_konv    TYPE ty_konv,
      w_kna1    TYPE ty_kna1,
      w_lfa1    TYPE ty_lfa1,
      w_mvke    TYPE ty_mvke,
      w_t179    TYPE ty_t179,
      w_pa9001  TYPE ty_pa9001,
      w_lfm1    TYPE ty_lfm1,
      w_display TYPE ty_display,
*      ALV
      w_fieldcat TYPE slis_fieldcat_alv,
      w_sort     TYPE ty_sort,
      w_xvariant TYPE  disvariant,
      w_variant  TYPE disvariant,
*>> BEGIN GCC_195.01 EXCHNEO_F10 11.02.2009
*      Layout
      w_layout   TYPE slis_layout_alv,
*>> END   GCC_195.01 EXCHNEO_F10 11.02.2009
**>> BEGIN GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
      w_display2 TYPE ty_display2,
      w_typess   TYPE ty_typess,
**>> END   GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
      w_hierachy TYPE ty_hierachy,

* INTERNAL TABLE
* BEGIN GCC_195.99 EXCHNEO_F10 31.03.2009
      i_tvko    TYPE STANDARD TABLE OF ty_tvko,
* END GCC_195.99 EXCHNEO_F10 31.03.2009
      i_likp    TYPE STANDARD TABLE OF ty_likp,
      i_vbpa    TYPE STANDARD TABLE OF ty_vbpa,
      i_lips    TYPE STANDARD TABLE OF ty_lips,
      i_vbak    TYPE STANDARD TABLE OF ty_vbak,
      i_konv    TYPE STANDARD TABLE OF ty_konv,
      i_kna1    TYPE STANDARD TABLE OF ty_kna1,
      i_pernr   TYPE STANDARD TABLE OF ty_pernr,
      i_lfa1    TYPE STANDARD TABLE OF ty_lfa1,
      i_mvke    TYPE STANDARD TABLE OF ty_mvke,
      i_t179    TYPE STANDARD TABLE OF ty_t179,
      i_pa9001  TYPE STANDARD TABLE OF ty_pa9001,
      i_lfm1    TYPE STANDARD TABLE OF ty_lfm1,
      i_display TYPE STANDARD TABLE OF ty_display,
**>> BEGIN GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
      i_display2 TYPE STANDARD TABLE OF ty_display2,
      i_typess   TYPE STANDARD TABLE OF ty_typess,

      i_hierachy TYPE STANDARD TABLE OF ty_hierachy,
*      i_layout1   type slis_layout_alv,
*      i_layout2   type slis_layout_alv,
*      i_print     type slis_print_alv,
*      i_fieldcat2 type slis_t_fieldcat_alv,
*      i_events1   type slis_t_event,
*      i_events2   type slis_t_event,
**>> END   GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List

* ALV
      i_fieldcat1 TYPE slis_t_fieldcat_alv,
      i_sort      TYPE STANDARD TABLE OF ty_sort,
*>> BEGIN GCC_195.01 EXCHNEO_F10 11.02.2009
      i_events     TYPE slis_t_event        WITH HEADER LINE,
      i_title_alv  TYPE slis_t_listheader   WITH HEADER LINE,
      i_footer_alv TYPE slis_t_listheader   WITH HEADER LINE.
*>> END   GCC_195.01 EXCHNEO_F10 11.02.2009

*----------------------------------------------------------*
* DECLARATION VARIABLES                                    *
*----------------------------------------------------------*
DATA:
      v_vkorg   TYPE tvko-vkorg,
      v_vtext   TYPE tvkot-vtext,
      v_exit(1) TYPE c,
      v_repid   TYPE sy-repid,
      v_band    TYPE i.
*----------------------------------------------------------*
* DECLARATION SELECTION SCREEN                             *
*----------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:
    s_comco FOR likp-vkorg OBLIGATORY.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETER:
    b_drive RADIOBUTTON GROUP radi USER-COMMAND fcode DEFAULT 'X',
    b_lease RADIOBUTTON GROUP radi.
SELECTION-SCREEN END OF BLOCK b2.

SELECT-OPTIONS:
  s_drive FOR vbpa-pernr,
  s_lease FOR vbpa-lifnr.

SELECT-OPTIONS:
    s_delive FOR likp-lfdat,
    s_hierac FOR MVKE-PRODH."GCC_723 EXCHNEO_F10 29.04.2009
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN: BEGIN OF BLOCK blk2 WITH FRAME TITLE text-021.

PARAMETERS: p_vari TYPE disvariant-variant.

SELECTION-SCREEN: END OF BLOCK blk2.

Include de Rutinas


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195_B                                  *
* Description          : The payroll driver commission report is used  *
*                        by the payroll department so that they can do *
*                        the commission payment freight to the         *
*                        employees or drivers.                         *
* Functional           : Joel Carrillo                                 *
* Developer            : Omar Garcia   EXCHNEO_F10                     *
* Creation Date        : 01.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195   Transport: ECDK901199                   *
*----------------------------------------------------------------------*
*                      MODIFICATIONS LOG                               *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195_B                                  *
* Description          : Change ALV List for ALV Grid                  *
* Functional           : Joel Carrillo                                 *
* Developer            : Carlos Antonio Flores Deras - EXCHNEO_F10     *
* Creation Date        : 12.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195.01   Transport: ECDK901199                *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195_B                                  *
* Description          : Add botton for show grand total               *
* Functional           : Joel Carrillo                                 *
* Developer            : Cristina Ornelas        USER  EXCHNEO_F10     *
* Creation Date        : 19.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195.01   Transport: ECDK901199                *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195_B                                  *
* Description          : Change  Format Report List                    *
* Functional           : Joel Carrillo                                 *
* Developer            : Omar Garcia - EXCHNEO_F10                     *
* Creation Date        : 24.02.2009                                    *
* ID Component         : GCC195                                        *
* Requirement Number   : 195.99  ECDK901199                            *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195_B                                  *
* Description          : Create a Commission Report Copy               *
* Functional           : Orlando Solano                                *
* Developer            : Maria V. Guerrero - EXCHNEO_F10               *
* Creation Date        : 29.04.2009                                    *
* Requirement Number   : GCC_723         OT: ECDK902996                *
*----------------------------------------------------------------------*
* Program name         : ZGGSDRE195                                    *
* Description          : Create a Commission Report Copy               *
* Functional           : Julian Luna                                   *
* Developer            : Erika Bandilla  - EXCHNEO_F14                 *
* Creation Date        : 04.05.2009                                    *
* Requirement Number   : GCC_723.01      OT: ECDK903960                *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  F_OUTPUT_SCREEN                                          *
*&---------------------------------------------------------------------*
*       Call Output Screen                                             *
*----------------------------------------------------------------------*
FORM f_output_screen .

  IF b_drive EQ c_x.
* Loop at Screen
    LOOP AT SCREEN.
* If option screen name is Lease
      IF screen-name = c_leahig OR
         screen-name = c_lealow.
* Screen is disabled
        screen-input = c_off.

      ENDIF.
* Modify the screen
      MODIFY SCREEN.

    ENDLOOP.

  ELSEIF b_lease = c_x .

    LOOP AT SCREEN.
* If option screen name is Driver
      IF screen-name = c_drilow OR
         screen-name = c_drihig.
* Screen is disabled
        screen-input = c_off.
        screen-output = c_off.

      ENDIF.
* Modify the screen
      MODIFY SCREEN.

    ENDLOOP.

  ENDIF.

ENDFORM.                    " F_OUTPUT_SCREEN
*&---------------------------------------------------------------------*
*&      Form  F_SELECT_DATA                                            *
*&---------------------------------------------------------------------*
*       Call Select Data                                               *
*----------------------------------------------------------------------*
FORM f_select_data.
* Declaration Variable Local
  DATA: lv_pernr TYPE kunnr.
* Clear Header
  CLEAR: i_likp,
         i_vbpa,
         i_lips,
         i_vbak,
         i_konv,
         i_kna1,
         i_lfa1,
         i_mvke,
         i_t179,
         i_pa9001,
         i_lfm1.
* Select to the table tvko
  SELECT SINGLE vkorg
    FROM tvko
      INTO v_vkorg
        WHERE vkorg IN s_comco.

  IF sy-subrc = 0.
* Select to the  MSEG table
    SELECT SINGLE vtext
      FROM tvkot
        INTO v_vtext
          WHERE spras = sy-langu
            AND vkorg = v_vkorg.

    IF sy-subrc <> 0.

      CLEAR v_vtext.

    ENDIF.

  ENDIF.
* Select the LIKP Table.
  SELECT vbeln
         vkorg
         lfart "GCC_723.01 EXCHNEO_F14 04.05.2009
         lfdat
         traid "GCC_723 EXCHNEO_F10 29.04.2009
         lifex
         knump "GCC_723.01 EXCHNEO_F14 04.05.2009
    FROM likp
      INTO TABLE i_likp
        WHERE vkorg IN s_comco
          AND lfdat IN s_delive.

  IF sy-subrc = 0.
* If the option is valid Driver o lease
    IF b_drive EQ c_x.
* Select VBPA with PARVW = ZD
      SELECT vbeln
             parvw
             kunnr
             lifnr
             pernr
        FROM vbpa
          INTO TABLE i_vbpa
            FOR ALL ENTRIES IN i_likp
              WHERE vbeln = i_likp-vbeln
                AND parvw = c_zd
                AND pernr IN s_drive.
*             AND pernr <= s_drive-high.
      IF sy-subrc EQ 0 .

* Select the PA9001 Table.
        SELECT pernr
               dvr_com_perc
          FROM pa9001
            INTO TABLE i_pa9001
              FOR ALL ENTRIES IN i_vbpa
                WHERE pernr = i_vbpa-pernr.

        IF sy-subrc = 0.
* It orders the table internal i_pa9001
          SORT i_pa9001
            BY pernr.

        ENDIF.
* Loop at table internal i_vbpa
        LOOP AT i_vbpa INTO w_vbpa.
*Call Function converts any number into a string fill with zeroes-right
          CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
            EXPORTING
              input  = w_vbpa-pernr
            IMPORTING
              output = lv_pernr.

          IF sy-subrc = 0.
* Assign Varibale to Header
            w_pernr-pernr = lv_pernr.

            APPEND w_pernr TO i_pernr.
* Clear Header and Variable
            CLEAR: w_pernr,
                  lv_pernr.

          ENDIF.

        ENDLOOP.
* It orders the table internal i_pernr
        SORT i_pernr
         BY pernr.
* Delete the register de table internal i_pernr
        DELETE ADJACENT DUPLICATES FROM i_pernr
        COMPARING pernr.
* Select the KNA1 Table.
        SELECT kunnr
               name1
           FROM kna1
            INTO TABLE i_kna1
              FOR ALL ENTRIES IN i_pernr
                WHERE kunnr = i_pernr-pernr.
        IF sy-subrc NE 0.
          CLEAR i_kna1.
        ENDIF.

      ENDIF.

    ELSEIF b_lease EQ c_x.
* Select VBPA with PARVW = CR
      SELECT vbeln
             parvw
             kunnr
             lifnr
             pernr
        FROM vbpa
          INTO TABLE i_vbpa
            FOR ALL ENTRIES IN i_likp
              WHERE vbeln = i_likp-vbeln
                AND parvw = c_cr
                AND lifnr IN s_lease.


      IF sy-subrc EQ 0.
* Select the LFA1 Table.
        SELECT lifnr
               name1
          FROM lfa1
            INTO TABLE i_lfa1
              FOR ALL ENTRIES IN i_vbpa
                WHERE lifnr = i_vbpa-lifnr.

        IF sy-subrc = 0.

          SORT i_lfa1
            BY lifnr.

        ENDIF.

* Select the LFM1 Table.
        SELECT lifnr
               ekorg
               minbw
          FROM lfm1
            INTO TABLE i_lfm1
              FOR ALL ENTRIES IN i_vbpa
                WHERE lifnr = i_vbpa-lifnr
                  AND ekorg = c_otcg. "'OTCG'.
*                  AND sperm = c_x."'X'.


        IF sy-subrc = 0.
* It orders the table internal i_lfm1
          SORT i_lfm1
            BY lifnr.

        ENDIF.

      ENDIF.

    ENDIF.
* Select the LIPS Table.
    SELECT vbeln
           posnr
           matnr
           lfimg
           vgbel
           vgpos "GCC_723.01 EXCHNEO_F14 04.05.2009
           vgtyp "GCC_723 EXCHNEO_F10 29.04.2009
      FROM lips
        INTO TABLE i_lips
          FOR ALL ENTRIES IN i_likp
            WHERE vbeln = i_likp-vbeln.

    IF sy-subrc = 0.
* Select the VBAK Table.
      SELECT vbeln
             knumv
        FROM vbak
          INTO TABLE i_vbak
            FOR ALL ENTRIES IN i_lips
              WHERE vbeln = i_lips-vgbel.

      IF sy-subrc = 0.

* Select the KONV Table.
        SELECT knumv
               kposn
               kschl
               kbetr
               kwert
               kinak "GCC_723.01 EXCHNEO_F14 04.05.2009
          FROM konv
            INTO TABLE i_konv
              FOR ALL ENTRIES IN i_vbak
                WHERE knumv = i_vbak-knumv.

        IF sy-subrc <> 0 .
          CLEAR: i_konv.
        ENDIF.
* Select the KONV Table.
        SELECT knumv
               kposn
               kschl
               kbetr
               kwert
               kinak "GCC_723.01 EXCHNEO_F14 04.05.2009
          FROM konv
            APPENDING TABLE i_konv
              FOR ALL ENTRIES IN i_likp
                WHERE knumv = i_likp-knump.

*  BEGIN GCC_723.01 EXCHNEO_F14 04.05.2009
*          DELETE i_konv WHERE kschl NE c_ztc1               "'ZTC1'
*                          AND kschl NE c_zpr1.              "'ZPR1'.

*          DELETE i_konv WHERE kschl NE c_ztc1
*                           or kschl ne c_ztc2
*                           or kschl ne c_ztc3
*                           or kschl ne c_ztc4
*                           or kschl ne c_ztc5
*                           or kschl ne c_ztc6
*                           or kschl ne c_zpr0
*                           or kschl NE c_zpr1.


*  END GCC_723.01 EXCHNEO_F14 04.05.2009
        IF sy-subrc = 0.

          SORT i_konv
            BY knumv.

        ENDIF.

*        ENDIF.

      ENDIF.
* Select the MVKE Table.
      SELECT matnr
             vkorg
             prodh
        FROM mvke
          INTO TABLE i_mvke
            FOR ALL ENTRIES IN i_lips
              WHERE matnr = i_lips-matnr.
*                AND vkorg = w_likp-vkorg.

      IF sy-subrc = 0.
* Select the T179 Table.
        SELECT prodh
               vtext
          FROM t179t
            INTO TABLE i_t179
              FOR ALL ENTRIES IN i_mvke
                WHERE prodh = i_mvke-prodh
                  AND spras = sy-langu.

        IF sy-subrc = 0.
* It orders the table internal i_t179
          SORT i_t179
            BY prodh.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.                    " F_SELECT_DATA
*&---------------------------------------------------------------------*
*&      Form  F_READ_TABLES                                            *
*&---------------------------------------------------------------------*
*     Call Read Tables                                                 *
*----------------------------------------------------------------------*
FORM f_read_tables.

*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
* BEGIN GCC_723.02 EXCHNEO_F07 10.06.2009
  DATA: lv_ztc5 TYPE konv-kwert,
        lv_ztc2 TYPE konv-kwert,
        lv_ztc4 TYPE konv-kwert,
        lv_ztc1 TYPE konv-kwert,
        lv_ext TYPE konv-kwert,
        lv_driv TYPE konv-kbetr.
* END GCC_723.02 EXCHNEO_F07 10.06.2009
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&


* Clear Headers
  CLEAR: w_likp,
         w_vbpa,
         w_lips,
         w_vbak,
         w_konv,
         w_kna1,
         w_lfa1,
         w_mvke,
         w_t179,
         w_pa9001,
         w_lfm1.
* It orders the table internal i_vbpa
  SORT i_vbpa
  BY vbeln.
* It orders the table internal i_kna1
  SORT i_kna1
  BY kunnr.
* It orders the table internal i_lfa1
  SORT i_lfa1
  BY lifnr.
* It orders the table internal i_lips
  SORT i_lips
  BY vbeln
     vgpos.
* It orders the table internal i_vbak
  SORT i_vbak
  BY vbeln.
* It orders the table internal i_konv
  SORT  i_konv
  BY kschl
     knumv
     kposn.
* It orders the table internal i_mvke
  SORT i_mvke
  BY matnr
     vkorg.
* It orders the table internal i_t179
  SORT i_t179
  BY prodh.
  SORT i_likp
   BY vbeln.

SORT i_hierachy
  BY vtext.

SORT i_lfm1
  by lifnr
     ekorg.

* BEGIN GCC_723.01 EXCHENEO_F14 04.05.2009
* LOOP i_vbpa
*  LOOP AT i_vbpa INTO w_vbpa .

  DATA: lv_pos TYPE lips-posnr.

  LOOP AT i_lips INTO w_lips.

    READ TABLE i_vbpa
      INTO w_vbpa
        WITH KEY vbeln = w_lips-vbeln.

    IF sy-subrc = 0.

      lv_pos = w_lips-posnr.
* END GCC_723.01 EXCHENEO_F14 04.05.2009

      READ TABLE i_likp INTO w_likp
         WITH KEY vbeln = w_vbpa-vbeln
                BINARY SEARCH.
      IF sy-subrc EQ 0 .
* Move Date and ticket to table final
        MOVE:
            w_likp-vbeln TO w_display-vbeln, " Delivery Number
            w_likp-lfdat TO w_display-date,   "Date
            w_likp-lifex TO w_display-number, "Ticket
*  BEGIN GCC_723 EXCHNEO_F10 29.04.2009
            w_likp-traid TO w_display-traid. "Truck Number
*  END GCC_723 EXCHNEO_F10 29.04.2009

      ENDIF.

      IF b_drive EQ c_x.
        " Driver Number
        w_display-driverzd = w_vbpa-pernr.
* Read Table i_kna1
        READ TABLE i_kna1
         INTO w_kna1
          WITH KEY kunnr+2(8) = w_vbpa-pernr
            BINARY SEARCH.

        IF sy-subrc EQ 0.
          " Name
          w_display-name = w_kna1-name1.

        ENDIF.

*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
* BEGIN GCC_723.02 EXCHNEO_F07 10.06.2009

** BEGIN GCC_723 EXCHNEO_F10 29.04.2009
        " Hierachy to Exclude from driver commission.
*        IF s_hierac-low EQ space AND
*           s_hierac-high EQ space.
** END GCC_723 EXCHNEO_F10 29.04.2009
*
*        IF lv_prodh EQ 1.

* END GCC_723.02 EXCHNEO_F07 10.06.2009
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
* Read Table i_pa9001
        READ TABLE i_pa9001
         INTO w_pa9001
           WITH KEY pernr = w_vbpa-pernr
             BINARY SEARCH.

        IF sy-subrc = 0.
          " Comission
          w_display-comision = w_pa9001-dvr_com_perc.

        ENDIF.
** BEGIN GCC_723 EXCHNEO_F10 29.04.2009
*        ELSE.
*          " Comission
*          w_display-comision = space.
*        ENDIF.
** END GCC_723 EXCHNEO_F10 29.04.2009

      ELSEIF b_lease EQ c_x.
        " Driver Number
        w_display-driverzd = w_vbpa-lifnr.
* Read Table i_lfa1
        READ TABLE i_lfa1
         INTO w_lfa1
           WITH KEY lifnr = w_vbpa-lifnr
            BINARY SEARCH.

        IF sy-subrc EQ 0.
          " Name
          w_display-name = w_lfa1-name1.
        ENDIF.
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
* BEGIN GCC_723.02 EXCHNEO_F07 10.06.2009

** BEGIN GCC_723 EXCHNEO_F10 29.04.2009
        " Hierachy to Exclude from driver commission.
*        IF s_hierac-low EQ space AND
*           s_hierac-high EQ space.
** END GCC_723 EXCHNEO_F10 29.04.2009

*        IF lv_prodh EQ 1.
* END GCC_723.02 EXCHNEO_F07 10.06.2009
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&


* Read Table i_lfm1
        READ TABLE i_lfm1
          INTO w_lfm1
            WITH KEY lifnr = w_vbpa-lifnr
                     ekorg = c_otcg "'OTCG'
              BINARY SEARCH.

        IF sy-subrc = 0.
          " Comission
          w_display-comision = w_lfm1-minbw.

        ENDIF.
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
* BEGIN GCC_723.02 EXCHNEO_F07 10.06.2009

** BEGIN GCC_723 EXCHNEO_F10 29.04.2009
*        ELSE.
*          " Comission
*          w_display-comision = space.
*        ENDIF.
** END GCC_723 EXCHNEO_F10 29.04.2009

* END GCC_723.02 EXCHNEO_F07 10.06.2009
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

      ENDIF.

* BEGIN GCC_723.01 EXCHNEO_F14 04.05.2009
      IF w_likp-lfart = c_znlc "ZNLC
        OR w_likp-lfart = c_zel. "ZEL
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
* BEGIN GCC_723.02 EXCHNEO_F07 10.06.2009

*        OR w_likp-lfart = c_zlf "ZLF
*        OR w_likp-lfart = c_zlr. " ZLR "GCC_195.04 EXCHNEO_F14 30.05.2009

* END GCC_723.01 EXCHNEO_F14 04.05.2009
* END GCC_723.02 EXCHNEO_F07 10.06.2009
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

* Read Table i_lips
        CLEAR w_lips.
        READ TABLE i_lips
          INTO w_lips
            WITH KEY vbeln = w_likp-vbeln
                     vgpos = lv_pos "GCC_723.01 EXCHNEO_F14 04.05.2009
              BINARY SEARCH.

        IF sy-subrc EQ 0.
          IF w_lips-vgtyp = c_h.

            w_lips-lfimg = w_lips-lfimg * -1.

          ENDIF.

          MOVE:
               w_lips-lfimg TO w_display-tons.


* Read Table i_vbak

          READ TABLE i_vbak
            INTO w_vbak
              WITH KEY vbeln = w_lips-vgbel
                BINARY SEARCH.

* BEGIN GCC_195.04 EXCHNEO_F14 30.05.2009
*        IF sy-subrc <> 0.
          IF sy-subrc = 0.
* END   GCC_195.04 EXCHNEO_F14 30.05.2009

*            READ TABLE i_konv
*              INTO w_konv
** BEGIN GCC_195.04 EXCHNEO_F14 30.05.2009
*              WITH KEY knumv = w_likp-knump
**              WITH KEY knumv = w_VBAK-KNUMV
** END   GCC_195.04 EXCHNEO_F14 30.05.2009
*                       kposn = lv_pos.
*
**IF sy-subrc = 0.
*            IF sy-subrc <> 0.
*              CLEAR w_konv.
*
*            ENDIF.
          ENDIF.

*          READ TABLE i_konv
*            INTO w_konv
*              with key knumv

          LOOP AT  i_konv
             INTO  w_konv
             WHERE (   knumv = w_vbak-knumv
                    OR knumv = w_likp-knump )
               AND "erika bandilla
* BEGIN GCC_723.01 EXCHNEO_F14 04.05.2009
**                 kposn = w_lips-posnr.
                   kposn = lv_pos. "w_lips-vgpos.

*            IF sy-subrc = 0.

* END GCC_723 EXCHNEO_F14 04.05.2009

** BEGIN GCC_723 EXCHNEO_F10 29.04.2009
            IF w_lips-vgtyp = c_h.

              w_konv-kbetr = w_konv-kbetr * -1.
              w_konv-kwert = w_konv-kwert * -1.
*        endif. " erika bandilla    "angel urenda
** BEGIN GCC_723.01 EXCHNEO_F14 04.05.2009
*                IF w_konv-kschl = c_ztc1
*                  OR w_konv-kschl = c_ztc2
*                  OR w_konv-kschl = c_ztc3
*                  OR w_konv-kschl = c_ztc4
*                  OR w_konv-kschl = c_ztc5
*                  OR w_konv-kschl = c_ztc6.
*
**  BEGIN GCC_723.01 EXCHNEO_F14 28.05.2009
*                  w_konv-kbetr = w_konv-kbetr + w_konv-kbetr.
**  BEGIN GCC_723.01 EXCHNEO_F14 28.05.2009

*               ENDIF. " erika bandilla

            ENDIF. " erika bandilla
** END GCC_723 EXCHNEO_F10 29.04.2009

            IF w_konv-kschl = c_ztc1.

              CLEAR: lv_ztc1,
                     lv_ext,
                     lv_driv.

              lv_ztc1 = w_konv-kwert.
              lv_driv = w_konv-kbetr.

              CLEAR w_konv.
              READ TABLE i_konv
               INTO w_konv
                 WITH KEY kschl = c_ztc3
                          knumv = w_vbak-knumv
                          kposn = lv_pos.

              IF sy-subrc = 0.

                lv_ext = w_konv-kwert + lv_ztc1.
*                lv_driv = w_konv-kbetr. " + lv_driv.

                MOVE: lv_ext TO w_display-extended.
                MOVE: lv_driv TO w_display-driver.

              ELSE.

                MOVE: lv_ztc1 TO w_display-extended.
                MOVE: lv_driv TO w_display-driver.

              ENDIF.
            ENDIF.

            IF w_konv-kschl = c_ztc4.

              CLEAR lv_ztc4.

              lv_ztc4 = w_konv-kwert.
              lv_driv = w_konv-kbetr.

              CLEAR w_konv.
              READ TABLE i_konv
               INTO w_konv
                 WITH KEY kschl = c_ztc6
                          knumv = w_vbak-knumv
                          kposn = lv_pos.

              IF sy-subrc = 0.

                lv_ext = w_konv-kwert + lv_ztc4.
                lv_driv = w_konv-kbetr." + lv_driv.
                MOVE: lv_ext TO w_display-extended.
                MOVE: lv_driv TO w_display-driver.

              ELSE.

                MOVE: lv_ztc4 TO w_display-extended.
                MOVE: lv_driv TO w_display-driver.

              ENDIF.
            ENDIF.

            IF w_konv-kschl = c_ztc2.

              CLEAR lv_ztc2.

              lv_ztc2 = w_konv-kwert.
              lv_driv = w_konv-kbetr.

              CLEAR w_konv.
              READ TABLE i_konv
               INTO w_konv
                 WITH KEY kschl = c_ztc3
                          knumv = w_vbak-knumv
                          kposn = lv_pos.

              IF sy-subrc = 0.

                lv_ext = w_konv-kwert + lv_ztc2.
                lv_driv = w_konv-kbetr." + lv_driv.
                MOVE: lv_ext TO w_display-extended.
                MOVE: lv_driv TO w_display-driver.

              ELSE.

                MOVE: lv_ztc2 TO w_display-extended.
                MOVE: lv_driv TO w_display-driver.

              ENDIF.
            ENDIF.


            IF w_konv-kschl = c_ztc5.

              CLEAR lv_ztc5.

              lv_ztc5 = w_konv-kwert.
              lv_driv = w_konv-kbetr.

              CLEAR w_konv.
              READ TABLE i_konv
               INTO w_konv
                 WITH KEY kschl = c_ztc6
                          knumv = w_vbak-knumv
                          kposn = lv_pos.

              IF sy-subrc = 0.

                lv_ext = w_konv-kwert + lv_ztc5.
                lv_driv = w_konv-kbetr." + lv_driv.
                MOVE: lv_ext TO w_display-extended.
                MOVE: lv_driv TO w_display-driver.

              ELSE.

                MOVE: lv_ztc5 TO w_display-extended.
                MOVE: lv_driv TO w_display-driver.

              ENDIF.
            ENDIF.

* END GCC_723.01 EXCHNEO_F14 04.05.2009

* If option kschl = ZPR1
            IF w_konv-kschl = c_zpr1
* BEGIN GCC_723.01 EXCHNEO_F14 04.05.2009
              OR w_konv-kschl = c_zpr0
              OR w_konv-kschl = c_zpr4
              OR w_konv-kschl = c_zpr5
              AND w_konv-kinak <> c_x.
*END GCC_723.01 EXCHNEO_F14 04.05.2009

* Move rate to table final
              MOVE:
                  w_konv-kbetr TO w_display-billing,
                  w_konv-kwert TO w_display-extended1.

            ENDIF.

*            ENDIF.
          ENDLOOP.

*        ENDIF. "if sy-subrc

*      ENDIF.




****************************************************************
        ENDIF.
      ENDIF.
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
* BEGIN GCC_723.02 EXCHNEO_F07 10.06.2009

      IF w_likp-lfart = c_zlf  OR"ZLF
         w_likp-lfart = c_zlr. " ZLR

        IF w_lips-vgtyp = c_h.

          w_lips-lfimg = w_lips-lfimg * -1.

        ENDIF.

        MOVE:
             w_lips-lfimg TO w_display-tons.

* Read Table i_vbak
        READ TABLE i_vbak
          INTO w_vbak
            WITH KEY vbeln = w_lips-vgbel
              BINARY SEARCH.
        IF sy-subrc = 0.
        ENDIF.

        LOOP AT  i_konv
           INTO  w_konv
           WHERE (   knumv = w_vbak-knumv
                  OR knumv = w_likp-knump )
             AND     kposn = w_lips-vgpos.

          IF w_lips-vgtyp = c_h.

            w_konv-kbetr = w_konv-kbetr * -1.
            w_konv-kwert = w_konv-kwert * -1.

          ENDIF.

          IF w_konv-kschl = c_ztc1.

            CLEAR: lv_ztc1,
                   lv_ext,
                   lv_driv.

            lv_ztc1 = w_konv-kwert.
            lv_driv = w_konv-kbetr.

            CLEAR w_konv.
            READ TABLE i_konv
             INTO w_konv
               WITH KEY kschl = c_ztc3
                        knumv = w_vbak-knumv
                        kposn = w_lips-vgpos.

            IF sy-subrc = 0.

              lv_ext = w_konv-kwert + lv_ztc1.

              MOVE: lv_ext TO w_display-extended.
              MOVE: lv_driv TO w_display-driver.

            ELSE.

              MOVE: lv_ztc1 TO w_display-extended.
              MOVE: lv_driv TO w_display-driver.

            ENDIF.
          ENDIF.

          IF w_konv-kschl = c_ztc4.

            CLEAR lv_ztc4.

            lv_ztc4 = w_konv-kwert.
            lv_driv = w_konv-kbetr.

            CLEAR w_konv.
            READ TABLE i_konv
             INTO w_konv
               WITH KEY kschl = c_ztc6
                        knumv = w_vbak-knumv
                        kposn = w_lips-vgpos.

            IF sy-subrc = 0.

              lv_ext = w_konv-kwert + lv_ztc4.
              lv_driv = w_konv-kbetr.
              MOVE: lv_ext TO w_display-extended.
              MOVE: lv_driv TO w_display-driver.

            ELSE.

              MOVE: lv_ztc4 TO w_display-extended.
              MOVE: lv_driv TO w_display-driver.

            ENDIF.
          ENDIF.

          IF w_konv-kschl = c_ztc2.

            CLEAR lv_ztc2.

            lv_ztc2 = w_konv-kwert.
            lv_driv = w_konv-kbetr.

            CLEAR w_konv.
            READ TABLE i_konv
             INTO w_konv
               WITH KEY kschl = c_ztc3
                        knumv = w_vbak-knumv
                        kposn = w_lips-vgpos.

            IF sy-subrc = 0.

              lv_ext = w_konv-kwert + lv_ztc2.
              lv_driv = w_konv-kbetr.
              MOVE: lv_ext TO w_display-extended.
              MOVE: lv_driv TO w_display-driver.

            ELSE.

              MOVE: lv_ztc2 TO w_display-extended.
              MOVE: lv_driv TO w_display-driver.

            ENDIF.
          ENDIF.


          IF w_konv-kschl = c_ztc5.

            CLEAR lv_ztc5.

            lv_ztc5 = w_konv-kwert.
            lv_driv = w_konv-kbetr.

            CLEAR w_konv.
            READ TABLE i_konv
             INTO w_konv
               WITH KEY kschl = c_ztc6
                        knumv = w_vbak-knumv
                        kposn = w_lips-vgpos.

            IF sy-subrc = 0.

              lv_ext = w_konv-kwert + lv_ztc5.
              lv_driv = w_konv-kbetr.
              MOVE: lv_ext TO w_display-extended.
              MOVE: lv_driv TO w_display-driver.

            ELSE.

              MOVE: lv_ztc5 TO w_display-extended.
              MOVE: lv_driv TO w_display-driver.

            ENDIF.
          ENDIF.

* If option kschl = ZPR1
          IF w_konv-kschl = c_zpr1
            OR w_konv-kschl = c_zpr0
            OR w_konv-kschl = c_zpr4
            OR w_konv-kschl = c_zpr5
            AND w_konv-kinak <> c_x.

* Move rate to table final
            MOVE:
                w_konv-kbetr TO w_display-billing,
                w_konv-kwert TO w_display-extended1.

          ENDIF.

        ENDLOOP.
      ENDIF.

* END GCC_723.02 EXCHNEO_F07 10.06.2009
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

* Read Table i_mvke
      READ TABLE i_mvke
        INTO w_mvke
          WITH KEY matnr = w_lips-matnr
                   vkorg = w_likp-vkorg
          BINARY SEARCH.
      IF sy-subrc = 0.
* Read Table i_t179
        READ TABLE i_t179
          INTO w_t179
            WITH KEY prodh = w_mvke-prodh
            BINARY SEARCH.
        IF sy-subrc = 0.
* Move type to table final
          MOVE:
                w_t179-vtext TO w_display-typess,
                w_t179-vtext TO w_hierachy-vtext.
                w_hierachy-prodh = w_mvke-prodh.
        ENDIF.
      ENDIF.
*>> BEGIN GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
*>> BEGIN GCC_195.01 EXCHNEO_F10 11.02.2009
*    w_display-total = w_display-comision * w_display-extended.

*>> END   GCC_195.01 EXCHNEO_F10 11.02.2009
      w_display-total = ( w_display-comision * w_display-extended )
                        / 100.

*>> END   GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
      APPEND w_display TO i_display.
      APPEND w_hierachy TO i_hierachy.
      CLEAR w_display.
* BEGIN GCC_723.01 EXCHNEO_F14 04.05.2009
      CLEAR lv_ext.
      CLEAR lv_driv.
      CLEAR lv_ztc1.
      CLEAR lv_ztc2.
      CLEAR lv_ztc4.
      CLEAR: lv_ztc5.
      PERFORM f_clear_headers.
* END GCC_723.01 EXCHNEO_F14 04.05.2009
    ENDIF.
  ENDLOOP.

*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
* BEGIN GCC_723.02 EXCHNEO_F07 10.06.2009

  IF s_hierac[] IS NOT INITIAL.
    DELETE i_hierachy
           WHERE prodh NOT IN s_hierac.

    DELETE ADJACENT DUPLICATES FROM i_hierachy
               COMPARING ALL FIELDS.

    DATA: lv_cont TYPE i.

    LOOP AT i_display
       INTO w_display.

      lv_cont = lv_cont + 1.

      READ TABLE i_hierachy
         INTO w_hierachy
        WITH KEY vtext = w_display-typess
          BINARY SEARCH.
      IF sy-subrc EQ 0.

        w_display-comision = space.
        w_display-total = w_display-extended.

        MODIFY i_display FROM w_display
                        INDEX lv_cont
                 TRANSPORTING comision
                              total.

      ENDIF.

    CLEAR w_display.
    ENDLOOP.
  ENDIF.

* END GCC_723.02 EXCHNEO_F07 10.06.2009
*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&




ENDFORM.                    " F_READ_TABLES

*&---------------------------------------------------------------------*
*&      Form  F_USER_COMMAND                                           *
*&---------------------------------------------------------------------*
*       User comand                                                    *
*----------------------------------------------------------------------*
*      -->P_UCOMM     Function code                                    *
*      -->P_SELFIELD  Information cursor position ALV                  *
*----------------------------------------------------------------------*
FORM f_user_command
   USING  p_ucomm     LIKE sy-ucomm
          p_selfield  TYPE slis_selfield.

* Generate list print for totals
  IF p_ucomm EQ c_code OR       " &PRNT
     p_ucomm EQ c_code2. "GCC_723 EXCHNEO_F10 29.04.2009
    SET SCREEN 0.
*    LEAVE SCREEN.
  ENDIF.

ENDFORM.                    "F_USER_COMMAND
*&---------------------------------------------------------------------*
*&      Form  F_DETAIL                                                 *
*&---------------------------------------------------------------------*
*       Detail Report                                                  *
*----------------------------------------------------------------------*
FORM f_detail .
* Declaration Types Local
  TYPES: BEGIN OF lty_report,
      driverzd  TYPE likp-vbeln,
      typess    TYPE t179t-vtext,
      comision  TYPE pa9001-dvr_com_perc,
      total     TYPE wertv12,
      name      TYPE kna1-name1,
      date      TYPE likp-lfdat,
      number    TYPE likp-lifex,
      tons      TYPE lips-lfimg,
      driver    TYPE konv-kbetr,
      extended  TYPE wertv12,
      billing   TYPE konv-kbetr,
      extended1 TYPE wertv12,
    END OF lty_report.

* Declaration Types Local
  TYPES: BEGIN OF lty_total,
      driverzd  TYPE likp-vbeln,
      typess    TYPE t179t-vtext,
      extended  TYPE wertv12,
      extended1 TYPE wertv12,
    END OF lty_total.

  TYPES: BEGIN OF lty_gtotal,
        typess    TYPE t179t-vtext,
        extended  TYPE wertv12,
        extended1 TYPE wertv12,
        driverzd  TYPE likp-vbeln,
      END OF lty_gtotal.

* Declaration structure and table internal local
  DATA: lw_report TYPE lty_report,
        lw_total TYPE lty_total,
        lw_gtotal TYPE lty_gtotal,
        li_report TYPE STANDARD TABLE OF lty_report,
        li_total TYPE STANDARD TABLE OF lty_total,
        li_gtotal TYPE STANDARD TABLE OF lty_gtotal.

* Declaration Field Symbol Local
  FIELD-SYMBOLS:  TYPE lty_report.

* Declaration variable local
  DATA: lv_driver TYPE likp-vbeln,
        lv_name TYPE kna1-name1,
        lv_type TYPE t179t-vtext,
        lv_ton TYPE wertv12,
        lv_extended TYPE wertv12,
        lv_extended1 TYPE wertv12,
        lv_comis TYPE pa9001-dvr_com_perc,
        lv_total TYPE wertv12,
        lv_tot_driver TYPE wertv12,
        lv_driverf TYPE wertv12,
        lv_truckf TYPE wertv12,
        lv_dritot TYPE wertv12,
        lv_totdriver TYPE wertv12,
        lv_tottruck TYPE wertv12,
        lv_tons     TYPE wertv12.
* sort i_display
  SORT i_display
    BY driverzd
       typess
       date
       number.
* Loop table i_display
  LOOP AT i_display
     INTO w_display.
* Move corresponding structure to table internal
    MOVE-CORRESPONDING: w_display TO lw_report.

    APPEND lw_report TO li_report.

  ENDLOOP.
* Loop table li_report
  LOOP AT li_report
    ASSIGNING .
* Assigning date to variables
    lv_driver = -driverzd.
    lv_name = -name.
    lv_type = -typess.
    lv_comis = -comision.

    AT NEW driverzd.

      NEW-PAGE. "GCC_195.99 EXCHNEO_F10 24.02.2009
      " Change  Format Report List
* Header Format
      PERFORM f_header_format. " GCC_195.99 EXCHNEO_F10 24.02.2009
      " Change  Format Report List
* Write Driver Number
      WRITE: /1  c_line,"'|',
             4 text-t11,"'Driver Number',
            35 lv_driver,
            45 lv_name,
            178 c_line." '|'.
    ENDAT.
* Write Type
    AT NEW typess.

      WRITE: /1 c_line," '|',
              2 text-t12,"'Type',
              lv_type,
              178 c_line." '|'.
    ENDAT.
* Write data report

    WRITE: /1  c_line,"'|',
            8(10)  -date ,
            65(35) -number LEFT-JUSTIFIED,
           95(17)  -tons RIGHT-JUSTIFIED,
           111(14) -driver RIGHT-JUSTIFIED,
           127(14) -extended RIGHT-JUSTIFIED,
           147(10) -billing RIGHT-JUSTIFIED,
           169(10) -extended1 RIGHT-JUSTIFIED,
           178 c_line." '|'.
* Sum Total Freight Type
    lv_ton = lv_ton + -tons.
    lv_extended = lv_extended + -extended.
    lv_extended1 = lv_extended1 + -extended1.

    AT END OF typess.
* Write Total Freight Type
      FORMAT COLOR 3.
      WRITE: /1 c_line," '|',
            2 text-t13,"'Total Freight Type',
          95(17) lv_ton RIGHT-JUSTIFIED,
          110 lv_extended RIGHT-JUSTIFIED,
          160 lv_extended1 RIGHT-JUSTIFIED,
          178  c_line."'|'.
* Write Driver Comission
      WRITE: /1  c_line,"'|',
              2 text-t14,"'Driver Comission',
              26 lv_comis RIGHT-JUSTIFIED, c_porc,"'%',
              178 c_line." '|'.

** BEGIN GCC_723 EXCHNEO_F10 30.04.2009
      " Hierachy to Exclude from driver commission.
      IF s_hierac-low  EQ space AND
         s_hierac-high EQ space.
** END GCC_723 EXCHNEO_F10 30.04.2009
* Calculate Total Driver
        lv_total = ( lv_comis * lv_extended ) / 100.
** BEGIN GCC_723 EXCHNEO_F10 30.04.2009
      ELSE.
        lv_total = lv_extended.
      ENDIF.
** END GCC_723 EXCHNEO_F10 30.04.2009

* Write Total Driver
      CLEAR lv_comis.
      WRITE: /1 c_line," '|',
             2 text-t15,"'Total Driver',
             26 lv_total RIGHT-JUSTIFIED,
             178 c_line." '|'.

      FORMAT COLOR OFF.
* Sum Total driver
      lv_tot_driver = lv_tot_driver + lv_total.
* Clear Variables
      CLEAR: lv_total,
             lv_extended,
             lv_extended1,
             lv_ton.
    ENDAT.
    AT END OF driverzd.

      FORMAT COLOR 4.
* Write Sum Total Driver
      WRITE: /1 c_line,"'|',
             2 text-t16,
             26 lv_tot_driver,
             178 c_line."'|'.
      FORMAT COLOR OFF.
      CLEAR lv_tot_driver.
      ULINE.

    ENDAT.

  ENDLOOP.
* BEGIN GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
*  ULINE /1(75).
  NEW-PAGE.
  SKIP.
  PERFORM f_title_total.
* END GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
* Write Detail Total
  ULINE /1(75).
  WRITE: /1 c_line,"'|',
          2 text-t17,"'Hierarchy Type',
         35 text-t18,"'Driver Freight',
         59 text-t19,"'Truck Freight',
         75 c_line."'|'.
  ULINE /1(75).
* Sort i_display
  SORT i_display
    BY driverzd
       typess
       date
       number.

* Loop table i_display
  LOOP AT i_display
     INTO w_display.
* Move structure to structure
    MOVE-CORRESPONDING w_display TO lw_total.

    COLLECT lw_total INTO li_total.

  ENDLOOP.
* Sort table li_total
  SORT li_total
    BY typess.
* Loop table li_total
  LOOP AT li_total
    INTO lw_total.
* Assigning date
    lw_gtotal-typess = lw_total-typess .
    lw_gtotal-extended = lw_total-extended .
    lw_gtotal-extended1 = lw_total-extended1 .
    lw_gtotal-driverzd = lw_total-driverzd.

    APPEND  lw_gtotal TO  li_gtotal.

  ENDLOOP.
* Loop table li_gtotal
  LOOP AT li_gtotal
    INTO lw_gtotal.
* Sum Truck Freight
    lv_truckf = lv_truckf + lw_gtotal-extended1.
* Read Table i_display
    READ TABLE i_display
      INTO w_display
      WITH KEY driverzd = lw_gtotal-driverzd
                typess = lw_gtotal-typess
                BINARY SEARCH.
* Calcute Driver Freight
    lv_driverf = lw_gtotal-extended * w_display-comision.
* Calculate div 100
    lv_dritot = lv_dritot + lv_driverf / 100.

    AT END OF typess.
* Grand Total
      lv_totdriver = lv_totdriver + lv_dritot.
      lv_tottruck = lv_tottruck + lv_truckf.
* Write Grand Total
      WRITE: /1 c_line,"'|',
               2(15)  lw_gtotal-typess,
               18(26) lv_dritot RIGHT-JUSTIFIED,
               44(26) lv_truckf RIGHT-JUSTIFIED,
               75 c_line."'|'.
* Clear Varibales
      CLEAR: lv_dritot,
             lv_truckf,
             lv_driverf.

      AT LAST.

        FORMAT COLOR 4.
* Write Grand Total
        WRITE:  /1 c_line,"'|',
          2(12) text-t20,"'Grand Total',
         18(26) lv_totdriver RIGHT-JUSTIFIED,
         44(26) lv_tottruck RIGHT-JUSTIFIED,
         75 c_line."'|'.
        FORMAT COLOR OFF.
        ULINE /1(75).
* Clear Varibales
        CLEAR: lv_totdriver,
               lv_tottruck.

      ENDAT.

    ENDAT.

  ENDLOOP.

ENDFORM.                    " F_DETAIL
*&---------------------------------------------------------------------*
*&      Form  F_HEADER_FORMAT                                          *
*&---------------------------------------------------------------------*
*       Header Format.                                                 *
*----------------------------------------------------------------------*
FORM f_header_format .

* Format Header
  ULINE.
  WRITE: /1 c_line,"'|',
          178 c_line,"'|',
         /1 c_line,"'|',
          70 text-015,
         178 c_line."'|'.

  WRITE: /1 c_line,"'|',
          text-t21,13 s_delive-low, " 'From:'
           178 c_line."'|'.

  WRITE: /1 c_line,"'|',
        text-t22,13 s_delive-high, " 'Through:'
         178 c_line."'|'.

  WRITE: /1 c_line,"'|',
          155 text-025,
          165 sy-pagno,
          178 c_line."'|'.
  ULINE.

  WRITE:
          /1 c_line,"'|',
          65 text-t07 LEFT-JUSTIFIED, "'External',
          135 text-t08, "'Extended',
          150 text-t09, "'Billing',
          178 c_line,"'|',
          /1 c_line,"'|',
          178 c_line."'|'.

  WRITE: /1 c_line,"'|',
          2 text-t01, "'Date',
         65 text-t03 LEFT-JUSTIFIED, "'Ticket',
        105 text-t04, "'Ton',
        120 text-t05, "'Rate',
        135 text-t05, "'Rate',
        150 text-t05, "'Rate',
        169 text-t06, "'Extend'.
        178 c_line."'|'.

  ULINE.

ENDFORM.                    " F_HEADER_FORMAT
*&---------------------------------------------------------------------*
*&      Form  F_TITLE_TOTAL                                            *
*&---------------------------------------------------------------------*
*       Title Total                                                    *
*----------------------------------------------------------------------*
FORM f_title_total .

* Format Header
  ULINE.
  WRITE: /1 c_line,"'|',
          178 c_line,"'|',
         /1 c_line,"'|',
          70 text-015,
         178 c_line."'|'.

  WRITE: /1 c_line,"'|',
          text-t21,13 s_delive-low, " 'From:'
           178 c_line."'|'.

  WRITE: /1 c_line,"'|',
        text-t22,13 s_delive-high, " 'Through:'
         178 c_line."'|'.

  WRITE: /1 c_line,"'|',
          155 text-025,
          165 sy-pagno,
          178 c_line."'|'.
  ULINE.

ENDFORM.                    " F_TITLE_TOTAL

*BEGIN GCC_195.99 24.02.2009 EXCHNEO_F10 Change Format Report List
*&---------------------------------------------------------------------*
*&      Form  F_FORMAT                                                 *
*&---------------------------------------------------------------------*
*       Format New Page                                                *
*----------------------------------------------------------------------*
*FORM f_format .
** Format Header
*  ULINE.
*  WRITE: /1 c_line,"'|',
*          178 c_line,"'|',
*         /1 c_line,"'|',
*          70 text-015,
*         178 c_line."'|'.
*
*  WRITE: /1 c_line,"'|',
*          text-t21,13 s_delive-low, " 'From:'
*           178 c_line."'|'.
*
*  WRITE: /1 c_line,"'|',
*        text-t22,13 s_delive-high, " 'Through:'
*         178 c_line."'|'.
*
*  WRITE: /1 c_line,"'|',
*          155 text-025,
*          165 sy-pagno,
*          178 c_line."'|'.
*  ULINE.
*
*  WRITE:
*          /1 c_line,"'|',
*          65 text-t07 LEFT-JUSTIFIED, "'External',
*          135 text-t08, "'Extended',
*          150 text-t09, "'Billing',
*          178 c_line,"'|',
*          /1 c_line,"'|',
*          178 c_line."'|'.
*
*  WRITE: /1 c_line,"'|',
*          2 text-t01, "'Date',
*         65 text-t03 LEFT-JUSTIFIED, "'Ticket',
*        105 text-t04, "'Ton',
*        120 text-t05, "'Rate',
*        135 text-t05, "'Rate',
*        150 text-t05, "'Rate',
*        169 text-t06, "'Extend'.
*        178 c_line."'|'.
*
*  ULINE.
*ENDFORM.                    " F_FORMAT
* END GCC_195.99 24.02.2009 EXCHNEO_F10 Change  Format Report List
*&---------------------------------------------------------------------*
*&      Form  F_AUTHORITY_CHECK                                        *
*&---------------------------------------------------------------------*
*  Authority for sales organization                                    *
*----------------------------------------------------------------------*
FORM f_authority_check .
* Varible Local
  DATA lv_flag TYPE i.

  lv_flag = 0.

  SELECT vkorg
    FROM tvko
    INTO TABLE i_tvko
    WHERE vkorg IN s_comco.

  IF sy-subrc EQ 0.

    LOOP AT i_tvko
      INTO  w_tvko.

      AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
               ID 'VKORG' FIELD w_tvko-vkorg
               ID 'VTWEG' DUMMY
               ID 'SPART' DUMMY
               ID 'ACTVT' FIELD '03'.

      IF sy-subrc NE 0.

        lv_flag = 1.
        EXIT.

      ENDIF.

    ENDLOOP.

    IF lv_flag  = 1.

      MESSAGE i398(00)
        WITH text-t26.
      STOP.

    ENDIF.

  ENDIF.
ENDFORM.                    " F_AUTHORITY_CHECK

** BEGIN GCC_723 EXCHNEO_F10 29.04.2009
*&---------------------------------------------------------------------*
*&      Form  F_DETAIL2
*&---------------------------------------------------------------------*
*        Detail Commission Report Copy
*----------------------------------------------------------------------*
FORM f_detail2 .

* Declaration Types Local
  TYPES: BEGIN OF lty_report,
      driverzd  TYPE likp-vbeln,
      typess    TYPE t179t-vtext,
      comision  TYPE pa9001-dvr_com_perc,
      total     TYPE wertv12,
      name      TYPE kna1-name1,
      date      TYPE likp-lfdat,
      number    TYPE likp-lifex,
      tons      TYPE lips-lfimg,
      driver    TYPE konv-kbetr,
      extended  TYPE wertv12,
      billing   TYPE konv-kbetr,
      extended1 TYPE wertv12,
    END OF lty_report.

* Declaration Types Local
  TYPES: BEGIN OF lty_total,
      driverzd  TYPE likp-vbeln,
      typess    TYPE t179t-vtext,
      extended  TYPE wertv12,
      extended1 TYPE wertv12,
    END OF lty_total.

  TYPES: BEGIN OF lty_gtotal,
        typess    TYPE t179t-vtext,
        extended  TYPE wertv12,
        extended1 TYPE wertv12,
        driverzd  TYPE likp-vbeln,
      END OF lty_gtotal.

* Declaration structure and table internal local
  DATA: lw_report TYPE lty_report,
        lw_total TYPE lty_total,
        lw_gtotal TYPE lty_gtotal,
        li_report TYPE STANDARD TABLE OF lty_report,
        li_total TYPE STANDARD TABLE OF lty_total,
        li_gtotal TYPE STANDARD TABLE OF lty_gtotal.

* Declaration Field Symbol Local
  FIELD-SYMBOLS:  TYPE lty_report.

* Declaration variable local
  DATA: lv_driver TYPE likp-vbeln,
        lv_name TYPE kna1-name1,
        lv_type TYPE t179t-vtext,
        lv_ton TYPE wertv12,
        lv_extended TYPE wertv12,
        lv_extended1 TYPE wertv12,
        lv_comis TYPE pa9001-dvr_com_perc,
        lv_total TYPE wertv12,
        lv_tot_driver TYPE wertv12,
        lv_driverf TYPE wertv12,
        lv_truckf TYPE wertv12,
        lv_dritot TYPE wertv12,
        lv_totdriver TYPE wertv12,
        lv_tottruck TYPE wertv12.
* sort i_display
  SORT i_display
    BY driverzd
       typess
       date
       number.
* Loop table i_display
  LOOP AT i_display
     INTO w_display.
* Move corresponding structure to table internal
    MOVE-CORRESPONDING w_display TO lw_report.

    APPEND lw_report TO li_report.

  ENDLOOP.
* Loop table li_report
  LOOP AT li_report
    ASSIGNING .
* Assigning date to variables
    lv_driver = -driverzd.
    lv_name = -name.
    lv_type = -typess.
    lv_comis = -comision.

    AT NEW driverzd.

      NEW-PAGE.
* Header Format
      PERFORM f_header_format_copy. " GCC_723 EXCHNEO_F10 29.04.2009

* Write Driver Number
      WRITE: /1  c_line,"'|',
             4 text-t11,"'Driver Number',
            35 lv_driver,
            45 lv_name,
            178 c_line." '|'.
    ENDAT.
* Write Type
    AT NEW typess.

      WRITE: /1 c_line," '|',
              2 text-t12,"'Type',
              lv_type,
              178 c_line." '|'.
    ENDAT.
* Write data report
    WRITE: /1  c_line,"'|',
            8(10)  -date ,
            65(35) -number LEFT-JUSTIFIED,
           95(17)  -tons RIGHT-JUSTIFIED,
           111(14) -driver RIGHT-JUSTIFIED,
           127(14) -extended RIGHT-JUSTIFIED,
*BEGIN "GCC_723 EXCHNEO_F10 29.04.2009
*           147(10) -billing RIGHT-JUSTIFIED,
*           169(10) -extended1 RIGHT-JUSTIFIED,
*END "GCC_723 EXCHNEO_F10 29.04.2009
           178 c_line." '|'.
* Sum Total Freight Type
    lv_ton = lv_ton + -tons.
    lv_extended = lv_extended + -extended.
    lv_extended1 = lv_extended1 + -extended1.

    AT END OF typess.
* Write Total Freight Type
      FORMAT COLOR 3.
      WRITE: /1 c_line," '|',
            2 text-t13,"'Total Freight Type',
          95(17) lv_ton RIGHT-JUSTIFIED,
          110 lv_extended RIGHT-JUSTIFIED,
*BEGIN "GCC_723 EXCHNEO_F10 29.04.2009
*          160 lv_extended1 RIGHT-JUSTIFIED,
*END GCC_723 EXCHNEO_F10 29.04.2009
          178  c_line."'|'.
* Write Driver Comission
      WRITE: /1  c_line,"'|',
              2 text-t14,"'Driver Comission',
              26 lv_comis RIGHT-JUSTIFIED, c_porc,"'%',
              178 c_line." '|'.

** BEGIN GCC_723 EXCHNEO_F10 30.04.2009
      " Hierachy to Exclude from driver commission.
      IF s_hierac-low  EQ space AND
         s_hierac-high EQ space.
** END GCC_723 EXCHNEO_F10 30.04.2009
* Calculate Total Driver
        lv_total = ( lv_comis * lv_extended ) / 100.
** BEGIN GCC_723 EXCHNEO_F10 30.04.2009
      ELSE.
        lv_total = lv_extended.
      ENDIF.
** END GCC_723 EXCHNEO_F10 30.04.2009

* Write Total Driver
      CLEAR lv_comis.
      WRITE: /1 c_line," '|',
             2 text-t15,"'Total Driver',
             26 lv_total RIGHT-JUSTIFIED,
             178 c_line." '|'.

      FORMAT COLOR OFF.
* Sum Total driver
      lv_tot_driver = lv_tot_driver + lv_total.
* Clear Variables
      CLEAR: lv_total,
             lv_extended,
             lv_extended1,
             lv_ton.
    ENDAT.
    AT END OF driverzd.

      FORMAT COLOR 4.
* Write Sum Total Driver
      WRITE: /1 c_line,"'|',
             2 text-t16,
             26 lv_tot_driver,
             178 c_line."'|'.
      FORMAT COLOR OFF.
      CLEAR lv_tot_driver.
      ULINE.

    ENDAT.

  ENDLOOP.

  NEW-PAGE.
  SKIP.

  PERFORM f_title_total.

* Write Detail Total
  ULINE /1(75).
  WRITE: /1 c_line,"'|',
          2 text-t17,"'Hierarchy Type',
         35 text-t18,"'Driver Freight',
         59 text-t19,"'Truck Freight',
         75 c_line."'|'.
  ULINE /1(75).
* Sort i_display
  SORT i_display
    BY driverzd
       typess
       date
       number.


  LOOP AT i_display
     INTO w_display.
* Move structure to structure
    MOVE-CORRESPONDING w_display TO lw_total.

    COLLECT lw_total INTO li_total.

  ENDLOOP.
* Sort table li_total
  SORT li_total
    BY typess.

  LOOP AT li_total
    INTO lw_total.
* Assigning date
    lw_gtotal-typess = lw_total-typess .
    lw_gtotal-extended = lw_total-extended .
    lw_gtotal-extended1 = lw_total-extended1 .
    lw_gtotal-driverzd = lw_total-driverzd.

    APPEND  lw_gtotal TO  li_gtotal.

  ENDLOOP.
* Loop table li_gtotal
  LOOP AT li_gtotal
    INTO lw_gtotal.
* Sum Truck Freight
    lv_truckf = lv_truckf + lw_gtotal-extended1.
* Read Table i_display
    READ TABLE i_display
      INTO w_display
      WITH KEY driverzd = lw_gtotal-driverzd
                typess = lw_gtotal-typess
        BINARY SEARCH.

    IF sy-subrc EQ 0.
* Calcute Driver Freight
      lv_driverf = lw_gtotal-extended * w_display-comision.
* Calculate div 100
      lv_dritot = lv_dritot + lv_driverf / 100.
    ENDIF.

    AT END OF typess.
* Grand Total
      lv_totdriver = lv_totdriver + lv_dritot.
      lv_tottruck = lv_tottruck + lv_truckf.
* Write Grand Total
      WRITE: /1 c_line,"'|',
               2(15)  lw_gtotal-typess,
               18(26) lv_dritot RIGHT-JUSTIFIED,
               44(26) lv_truckf RIGHT-JUSTIFIED,
               75 c_line."'|'.
* Clear Varibales
      CLEAR: lv_dritot,
             lv_truckf,
             lv_driverf.

      AT LAST.

        FORMAT COLOR 4.
* Write Grand Total
        WRITE:  /1 c_line,"'|',
          2(12) text-t20,"'Grand Total',
         18(26) lv_totdriver RIGHT-JUSTIFIED,
         44(26) lv_tottruck RIGHT-JUSTIFIED,
         75 c_line."'|'.
        FORMAT COLOR OFF.
        ULINE /1(75).
* Clear Varibales
        CLEAR: lv_totdriver,
               lv_tottruck.

      ENDAT.

    ENDAT.

  ENDLOOP.

ENDFORM.                                                    " F_DETAIL2
*&---------------------------------------------------------------------*
*&      Form  F_HEADER_FORMAT_COPY
*&---------------------------------------------------------------------*
*  Header for Commission Report Copy
*----------------------------------------------------------------------*
FORM f_header_format_copy .

* Format Header
  ULINE.
  WRITE: /1 c_line,"'|',
          178 c_line,"'|',
         /1 c_line,"'|',
          76 v_vtext,
         /1 c_line,"'|',
          70 text-026,
         178 c_line."'|'.

  WRITE: /1 c_line,"'|',
          text-t21,13 s_delive-low, " 'From:'
           178 c_line."'|'.

  WRITE: /1 c_line,"'|',
        text-t22,13 s_delive-high, " 'Through:'
         178 c_line."'|'.

  WRITE: /1 c_line,"'|',
          155 text-025,
          165 sy-pagno,
          178 c_line."'|'.
  ULINE.

  WRITE:
          /1 c_line,"'|',
          65 text-t07 LEFT-JUSTIFIED, "'External',
          135 text-t08, "'Extended',
*          150 text-t09, "'Billing', "GCC_723 EXCHNEO_F10 29.04.2009
          178 c_line,"'|',
          /1 c_line,"'|',
          178 c_line."'|'.

  WRITE: /1 c_line,"'|',
          2 text-t01, "'Date',
         65 text-t03 LEFT-JUSTIFIED, "'Ticket',
        105 text-t04, "'Ton',
        120 text-t05, "'Rate',
        135 text-t05, "'Rate',
*        150 text-t05, "'Rate',"GCC_723 EXCHNEO_F10 29.04.2009
*        169 text-t06, "'Extend'."GCC_723 EXCHNEO_F10 29.04.2009
        178 c_line."'|'.

  ULINE.
ENDFORM.                    " F_HEADER_FORMAT_COPY
** END GCC_723 EXCHNEO_F10 29.04.2009
*&---------------------------------------------------------------------*
*&      Form  F_CLEAR_HEADERS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form F_CLEAR_HEADERS .

 CLEAR: w_lips,
        w_vbpa,
        w_likp,
        w_kna1,
        w_pa9001,
        w_lfa1,
        w_lfm1,
        w_vbak,
        w_konv,
        w_mvke.




endform.                    " F_CLEAR_HEADERS
*&---------------------------------------------------------------------*
*&      Form  F_ALV                                                    *
*&---------------------------------------------------------------------*
*       Call ALV Function                                              *
*----------------------------------------------------------------------*
FORM f_alv .
* Call Init Fieldcat 1
  PERFORM f_init_fieldcat.
* Call Sort
  PERFORM f_sort.
*>> BEGIN GCC_195.01 EXCHNEO_F10 11.02.2009
* Define ALV output format
  PERFORM f_init_layout.
*>> END   GCC_195.01 EXCHNEO_F10 11.02.2009

* Call Events Header and Footer
  PERFORM f_build_event.
* Call Diplay Table
  PERFORM f_show_data.

ENDFORM.                    " F_ALV
*&---------------------------------------------------------------------*
*&      Form  F_INIT_FIELDCAT                                          *
*&---------------------------------------------------------------------*
*       Make fieldcat 1 ALV                                            *
*----------------------------------------------------------------------*
FORM f_init_fieldcat .
* Clear Internal tables
  CLEAR i_fieldcat1.
  REFRESH i_fieldcat1.
*By this table we will define the areas that we want to show
* the list of departure
* Static records
  w_fieldcat-fieldname = 'DRIVERZD'.
  w_fieldcat-col_pos = 1.
  w_fieldcat-reptext_ddic  = text-004.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'TYPESS'.
  w_fieldcat-col_pos = 2.
  w_fieldcat-reptext_ddic  = text-006.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'COMISION'.
  w_fieldcat-col_pos = 3.
  w_fieldcat-reptext_ddic  = text-014.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'TOTAL'.
  w_fieldcat-col_pos = 4.
  w_fieldcat-reptext_ddic  = text-024.
  w_fieldcat-datatype = 'CURR'.
  w_fieldcat-do_sum   = c_x.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'NAME'.
  w_fieldcat-col_pos = 5.
  w_fieldcat-reptext_ddic  = text-005.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'DATE'.
  w_fieldcat-col_pos = 6.
  w_fieldcat-reptext_ddic  = text-007.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'NUMBER'.
  w_fieldcat-col_pos = 7.
  w_fieldcat-reptext_ddic  = text-008.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'TONS'.
  w_fieldcat-col_pos = 8.
  w_fieldcat-reptext_ddic  = text-009.
  w_fieldcat-datatype = 'CURR'.
  w_fieldcat-do_sum   = c_x."'X'.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'DRIVER'.
  w_fieldcat-col_pos = 9.
  w_fieldcat-reptext_ddic  = text-010.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'EXTENDED'.
  w_fieldcat-col_pos = 10.
  w_fieldcat-reptext_ddic  = text-011.
  w_fieldcat-datatype = 'CURR'.
  w_fieldcat-do_sum   = c_x."'X'.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'BILLING'.
  w_fieldcat-col_pos = 11.
  w_fieldcat-reptext_ddic  = text-012.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* Static records
  w_fieldcat-fieldname = 'EXTENDED1'.
  w_fieldcat-col_pos = 12.
  w_fieldcat-reptext_ddic  = text-013.
  w_fieldcat-datatype = 'CURR'.
  w_fieldcat-do_sum   = c_x."'X'.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* BEGIN GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
* Static records
  w_fieldcat-fieldname = 'VBELN'.
  w_fieldcat-col_pos = 13.
  w_fieldcat-reptext_ddic  = text-t25.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* END GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List

* BEGIN GCC_723 EXCHNEO_F10 29.04.2009
  w_fieldcat-fieldname = 'TRAID'.
  w_fieldcat-col_pos = 14.
  w_fieldcat-reptext_ddic  = text-t27.
  APPEND w_fieldcat TO i_fieldcat1.
  CLEAR w_fieldcat.
* END GCC_723 EXCHNEO_F10 29.04.2009
ENDFORM.                    " F_INIT_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  F_BUILD_EVENT                                            *
*&---------------------------------------------------------------------*
*  Build Events                                                        *
*----------------------------------------------------------------------*
FORM f_build_event.
*>> BEGIN GCC_195.01 EXCHNEO_F10 11.02.2009
  DATA: lw_event TYPE slis_alv_event.

  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = i_events[]
    EXCEPTIONS
      list_type_wrong = 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.

  SORT i_events
    BY name.

* ALV_GRID Function Module
  READ TABLE i_events
    INTO lw_event
      WITH KEY name =  slis_ev_end_of_list
      BINARY SEARCH.

  IF sy-subrc = 0.

    MOVE 'F_END_OF_LIST' TO lw_event-form.
    MODIFY i_events FROM lw_event INDEX sy-tabix.

  ENDIF.

  IF sy-batch NE c_x.

    READ TABLE i_events
      INTO lw_event
        WITH KEY name =  slis_ev_top_of_list
        BINARY SEARCH.

    IF sy-subrc = 0.

      MOVE 'F_TOP_OF_LIST' TO lw_event-form.
      MODIFY i_events FROM lw_event INDEX sy-tabix.

    ENDIF.

  ENDIF.

*>> END   GCC_195.01 EXCHNEO_F10 11.02.2009

ENDFORM.                    " F_BUILD_EVENT
*&---------------------------------------------------------------------*
*&      Form  F_SHOW_DATA                                              *
*&---------------------------------------------------------------------*
*       Call Dispaly ALV                                               *
*----------------------------------------------------------------------*
FORM f_show_data .

*>> BEGIN GCC_195.01 EXCHNEO_F10 11.02.2009
* Program name
  v_repid = sy-repid.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program     = v_repid
*>> BEGIN GCC_195.99 EXCHNEO_F10 24.02.2009 Change Format Report list
      i_callback_pf_status_set  = c_f_pf_status_set
      i_callback_user_command   = c_f_user_command
*>> END GCC_195.99 EXCHNEO_F10 24.02.2009 Change Format Report List
      i_callback_top_of_page = c_f_title
      it_events              = i_events[]
      i_structure_name       = c_i_display
      is_layout              = w_layout
      it_fieldcat            = i_fieldcat1[]
      it_sort                = i_sort[]
      i_default = c_x
      i_save                 = 'A'"c_a
      is_variant             = w_xvariant
    TABLES
      t_outtab               = i_display
    EXCEPTIONS
      program_error          = 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.
*>> END   GCC_195.01 EXCHNEO_F10 11.02.2009
ENDFORM.                    " F_SHOW_DATA
*&---------------------------------------------------------------------*
*&      Form  F_SORT                                                   *
*&---------------------------------------------------------------------*
*       Call Sort group subtotal                                       *
*----------------------------------------------------------------------*
FORM f_sort .
* Group by driverzd
  w_sort-fieldname = 'DRIVERZD'.
  w_sort-spos = 1.
  w_sort-up = c_x."'X'.
  w_sort-subtot = c_x."'X'.
  APPEND w_sort TO i_sort.
  CLEAR w_sort.

*>> BEGIN GCC_195.01 EXCHNEO_F10 11.02.2009
  w_sort-fieldname = 'TYPESS'.
  w_sort-spos = 2.
  w_sort-up = c_x."'X'.
  w_sort-subtot = c_x."'X'.
  APPEND w_sort TO i_sort.
  CLEAR w_sort.
*>> END   GCC_195.01 EXCHNEO_F10 11.02.2009

ENDFORM.                    " F_SORT
*&---------------------------------------------------------------------*
*&      Form  F_INIT_LAYOUT                                            *
*&---------------------------------------------------------------------*
*   Define ALV output format                                           *
*----------------------------------------------------------------------*
*>> BEGIN GCC_195.01 EXCHNEO_F10 11.02.2009
FORM f_init_layout .

  w_layout-zebra = c_x.
  w_layout-detail_popup = c_x.
  w_layout-colwidth_optimize = c_x.

ENDFORM.                    " F_INIT_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  F_ALV_TITLE                                              *
*&---------------------------------------------------------------------*
*  Create ALV Title                                                    *
*----------------------------------------------------------------------*
* Dinamic Call
FORM f_alv_title.

  IF i_title_alv[] IS INITIAL.

* Header Title
    i_title_alv-typ  = c_h.
    i_title_alv-info = v_vtext.
    APPEND i_title_alv.
    CLEAR i_title_alv.

    i_title_alv-typ  = c_s.
    i_title_alv-key = text-015.
    APPEND i_title_alv.
    CLEAR i_title_alv.

    i_title_alv-typ  = c_s.
    i_title_alv-key  = text-016.
    i_title_alv-info = s_delive-low.
    APPEND i_title_alv.
    CLEAR i_title_alv.

    IF s_delive-high IS NOT INITIAL.

      i_title_alv-typ  = c_s.
      i_title_alv-key  = text-017.
      i_title_alv-info = s_delive-high.
      APPEND i_title_alv.
      CLEAR i_title_alv.

    ENDIF.

    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        it_list_commentary = i_title_alv[].

  ENDIF.

ENDFORM.                    " F_ALV_TITLE
*----------------------------------------------------------------------*
*       FORM F_TOP_OF_LIST                                             *
*----------------------------------------------------------------------*
*  Build Top of List Event                                             *
*----------------------------------------------------------------------*
* Dinamic Call
FORM f_top_of_list.

  IF i_title_alv[] IS INITIAL.

* Header Title
    i_title_alv-typ  = c_h.
    i_title_alv-info = v_vtext.
    APPEND i_title_alv.
    CLEAR i_title_alv.

    i_title_alv-typ  = c_s.
    i_title_alv-key = text-015.
    APPEND i_title_alv.
    CLEAR i_title_alv.

    i_title_alv-typ  = c_s.
    i_title_alv-key = text-016.

    IF s_delive-high IS NOT INITIAL.

      i_title_alv-typ  = c_s.
      i_title_alv-key  = text-017.
      i_title_alv-info = s_delive-high.
      APPEND i_title_alv.
      CLEAR i_title_alv.

    ENDIF.

  ENDIF.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_title_alv[].


ENDFORM.                    "F_TOP_OF_LIST
*----------------------------------------------------------------------*
*       FORM F_END_OF_LIST                                             *
*----------------------------------------------------------------------*
*  Build End of List Event                                             *
*----------------------------------------------------------------------*
* Dinamic Call
FORM f_end_of_list.

  CLEAR: i_footer_alv.

  IF i_footer_alv[] IS INITIAL.

* User
    i_footer_alv-typ  = c_s.
    i_footer_alv-key = text-018. "User
    i_footer_alv-info = sy-uname.
    APPEND i_footer_alv.

* Date
    i_footer_alv-typ  = c_s.
    i_footer_alv-key = text-019. "Date
    CONCATENATE space
                sy-datlo+6(2)
                c_diag
                sy-datlo+4(2)
                c_diag
                sy-datlo+0(4)
                INTO i_footer_alv-info.
    APPEND i_footer_alv.

* Time
    i_footer_alv-typ  = c_s.
    i_footer_alv-key = text-020. "Time
    CONCATENATE space
                sy-timlo+0(2)
                c_dp
                sy-timlo+2(2)
                c_dp
                sy-timlo+4(2)
           INTO i_footer_alv-info.
    APPEND i_footer_alv.
    CLEAR: i_footer_alv.

  ENDIF.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_footer_alv[].

ENDFORM.                    "F_END_OF_LIST
*>> END   GCC_195.01 EXCHNEO_F10 11.02.2009
*&---------------------------------------------------------------------*
*&      Form  F_PF_STATUS_SET                                          *
*&---------------------------------------------------------------------*
*       Button Show                                                    *
*----------------------------------------------------------------------*
*      -->P_CE_FUNC_EXCLUDE  Function Exclude                          *
*----------------------------------------------------------------------*
FORM f_pf_status_set
* BEGIN GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
  USING p_ce_func_exclude TYPE slis_t_extab.                "#EC CALLED

  DATA li_fcode_attrib_tab LIKE smp_dyntxt OCCURS 4 WITH HEADER LINE.

  CLEAR: li_fcode_attrib_tab,
         li_fcode_attrib_tab[].

* Attributes for the Button
  li_fcode_attrib_tab-text      = text-t24. " Comment
  li_fcode_attrib_tab-icon_id   = '@UI@'.   " Create Label.
  li_fcode_attrib_tab-icon_text = text-t24. " Text for the Button
  li_fcode_attrib_tab-quickinfo = space.
  li_fcode_attrib_tab-path      = space.
  APPEND li_fcode_attrib_tab.

* BEGIN GCC_723 EXCHNEO_F10 29.04.2009
*Add Button for Comission Report Driver Copy
  li_fcode_attrib_tab-text      = text-t28. " Comment
  li_fcode_attrib_tab-icon_id   = '@UI@'.   " Create Label.
  li_fcode_attrib_tab-icon_text = text-t28. " Text for the Button
  li_fcode_attrib_tab-quickinfo = space.
  li_fcode_attrib_tab-path      = space.
  APPEND li_fcode_attrib_tab.
* END GCC_723 EXCHNEO_F10 29.04.2009


* Put the Button
*  PERFORM dynamic_report_fcodes(rhteiln0) TABLES fcode_attrib_tab
  PERFORM dynamic_report_fcodes
    IN PROGRAM rhteiln0
        TABLES li_fcode_attrib_tab
         USING p_ce_func_exclude ' ' ' '.

  SET PF-STATUS 'ALVLIST'
      EXCLUDING p_ce_func_exclude
     OF PROGRAM 'RHTEILN0'.
* END GCC_195.99 EXCHNEO_F10 24.02.2009 Change  Format Report List
ENDFORM.                    "F_PF_STATUS_SET
*&---------------------------------------------------------------------*
*&      Form  F_VARIANT_INIT                                           *
*&---------------------------------------------------------------------*
*       Variant Init                                                   *
*----------------------------------------------------------------------*
FORM f_variant_init .
  CLEAR w_variant.
  w_variant-report = v_repid.
ENDFORM.                    " F_VARIANT_INIT
*&---------------------------------------------------------------------*
*&      Form  F_CALL_VARIANT                                           *
*&---------------------------------------------------------------------*
*       Call Variant                                                   *
*----------------------------------------------------------------------*
FORM f_call_variant .

* Get default variant
  w_xvariant = w_variant.

  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save        = c_save
    CHANGING
      cs_variant    = w_xvariant
    EXCEPTIONS
      wrong_input   = 1
      not_found     = 2
      program_error = 3
      OTHERS        = 4.

  IF sy-subrc = 0.

    p_vari = w_xvariant-variant.

  ENDIF.

ENDFORM.                    " F_CALL_VARIANT
*&---------------------------------------------------------------------*
*&      Form  F_F4_FOR_VARIANT                                         *
*&---------------------------------------------------------------------*
*       Display all existing variants                                  *
*----------------------------------------------------------------------*
FORM f_f4_for_variant .

  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = w_variant
      i_save     = c_save
    IMPORTING
      e_exit     = v_exit
      es_variant = w_xvariant
    EXCEPTIONS
      not_found  = 2.

  IF sy-subrc = 2.

    MESSAGE ID sy-msgid
          TYPE c_s
        NUMBER sy-msgno
          WITH sy-msgv1
               sy-msgv2
               sy-msgv3
               sy-msgv4.

  ELSE.

    IF v_exit = space.

      p_vari = w_xvariant-variant.

    ENDIF.

  ENDIF.


ENDFORM.                    " F_F4_FOR_VARIANT
*&---------------------------------------------------------------------*
*&      Form  F_VALI_VARIANT                                           *
*&---------------------------------------------------------------------*
*       Validate Variant                                               *
*----------------------------------------------------------------------*
FORM f_vali_variant .
* Push List Variant
  IF NOT p_vari IS INITIAL.

    MOVE w_variant TO w_xvariant.
    MOVE p_vari TO w_xvariant-variant.

    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save        = c_save
      CHANGING
        cs_variant    = w_xvariant
      EXCEPTIONS
        wrong_input   = 1
        not_found     = 2
        program_error = 3
        OTHERS        = 4.

    IF sy-subrc EQ 0.

      w_variant = w_xvariant.

    ENDIF.

  ELSE.

    PERFORM f_variant_init.

  ENDIF.

ENDFORM.                    " F_VALI_VARIANT

ALV GRID: REPORTE DE COSTO DE VENTAS

2010-07-22T16:25:00.000-07:00

Programa Principal


************************************************************************
*                             TEMPLATE                                 *
************************************************************************
** Nombre del Programa: ZCXRE_CSDIS0MX512                             **
** Descripción        : Creación de reporte para ofrecer visibilidad  **
**                      de las operaciones comerciales de PROMEXMA en **
**                      cuanto a la relación costo-venta de productos.**
** Funcional          : Alfredo Vazquez Herrera.                      **
** Consultor ABAP     : Jose Angel Moreno Nieblas MROSALES            **
** Fecha Creación     : 23.06.2009                                    **
** ID Requerimiento   : 25707                                         **
**--------------------------------------------------------------------**

REPORT  zcxre_csdis0mx512.

**--------------------------------------------------------------------**
** Declaración de Includes.                                           **
**--------------------------------------------------------------------**
INCLUDE:    zcxre_csdis0mx512_a,    "Delaraciones Globales
            zcxre_csdis0mx512_b.    "Funciones
**--------------------------------------------------------------------**
** Evento de inicialización.                                          **
**--------------------------------------------------------------------**
INITIALIZATION.

  PERFORM f_inicializar_variante. "Inicializa la variable

**--------------------------------------------------------------------**
** Evento Selección de Pantalla.                                      **
**--------------------------------------------------------------------**
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_layout.

  PERFORM f_obtener_variante. "Rutina que obtiene una variante default

AT SELECTION-SCREEN.

  PERFORM f_cargar_variante. "Rutina que obtiene una variante

**--------------------------------------------------------------------**
** Proceso Principal.                                                 **
**--------------------------------------------------------------------**
START-OF-SELECTION.

    PERFORM f_obtener_datos. "Rutina que obtiene toda la información
*                             para llenar la tabla a mostar en el ALV

    PERFORM f_llenar_layout. "Hace el llenado de la tabla principal

**--------------------------------------------------------------------**
** Acciones a realizarse al final de la selección.                    **
**--------------------------------------------------------------------**
END-OF-SELECTION.

PERFORM f_reporte_alv.  "Muestra el reporte ALV

Include de Declaraciones


************************************************************************
*                             TEMPLATE                                 *
************************************************************************
** Nombre del Programa: ZCXRE_CSDIS0MX512                             **
** Descripción        : Creación de reporte para ofrecer visibilidad  **
**                      de las operaciones comerciales de PROMEXMA en **
**                      cuanto a la relación costo-venta de productos.**
** Funcional          : Alfredo Vazquez Herrera.                      **
** Consultor ABAP     : Jose Angel Moreno Nieblas MROSALES            **
** Fecha Creación     : 23.06.2009                                    **
** ID Requerimiento   : 25707                                         **
**--------------------------------------------------------------------**

**--------------------------------------------------------------------**
**  T A B L A S                                                       **
**--------------------------------------------------------------------**

TABLES: vbrp,
        vbrk,
        t001w,
        kna1,
        t023t,
        vbkd,
        makt,
        ekko,
        vbap,
        ekpo,
        mbew.

**--------------------------------------------------------------------**
**  C O N S T A N T E S                                               **
**--------------------------------------------------------------------**

CONSTANTS: c_x TYPE c VALUE 'X'.

**--------------------------------------------------------------------**
**  T I P O S                                                         **
**--------------------------------------------------------------------**

TYPE-POOLS: slis.

*Tipo para guardar información de la tabla maestra VBRP
TYPES: BEGIN OF ty_vbrp,
  vbeln TYPE vbrp-vbeln,  "Factura
  fkimg TYPE vbrp-fkimg,  "Cantidad facturada verdaderamente
  gewei TYPE vbrp-gewei,  "Unidad de peso
  netwr TYPE vbrp-netwr,  "Valor neto
  aubel TYPE vbrp-aubel,  "Documento de ventas
  aupos TYPE vbrp-aupos,  "Posición documento ventas
  matnr TYPE vbrp-matnr,  "Número de material
  matkl TYPE vbrp-matkl,  "Grupo de artículos
  werks TYPE vbrp-werks.  "Centro
TYPES: END OF ty_vbrp.

*Tipo para guardar información de la tabla maestra T001W
TYPES: BEGIN OF ty_t001w,
  werks TYPE t001w-werks, "Centro
  name1 TYPE t001w-name1. "Nombre
TYPES: END OF ty_t001w.

*Tipo para guardar información de la tabla maestra VBRK
TYPES: BEGIN OF ty_vbrk,
  vbeln TYPE vbrk-vbeln,  "Factura
  waerk TYPE vbrk-waerk,  "Moneda de documento comercial
  vkorg TYPE vbrk-vkorg,  "Organización de ventas
  fkdat TYPE vbrk-fkdat,  "Fecha de impresión de factura
  kunrg TYPE vbrk-kunrg,  "Pagador
  xblnr TYPE vbrk-xblnr.  "Número de documento de referencia
TYPES: END OF ty_vbrk.

*Tipo para guardar información de la tabla maestra KNA1
TYPES: BEGIN OF ty_kna1,
  kunnr TYPE kna1-kunnr,  "Nº de cliente
  name1 TYPE kna1-name1,                                    "Nombre 1
  name2 TYPE kna1-name2.                                    "Nombre 2
TYPES: END OF ty_kna1.

*Tipo para guardar información de la tabla maestra T023T
TYPES: BEGIN OF ty_t023t,
  matkl TYPE t023t-matkl, "Grupo de artículos
  wgbez TYPE t023t-wgbez. "Denominación del grupo de artículos
TYPES: END OF ty_t023t.

*Tipo para guardar información de la tabla maestra VBKD
TYPES: BEGIN OF ty_vbkd,
  vbeln TYPE vbkd-vbeln,  "Número de documento comercial
  posnr TYPE vbkd-posnr,  "Número de posición del documento comercial
  ihrez TYPE vbkd-ihrez.  "Referencia
TYPES: END OF ty_vbkd.

*Tipo para guardar información de la tabla maestra MAKT
TYPES: BEGIN OF ty_makt,
  matnr TYPE makt-matnr,  "Número de material
  maktx TYPE makt-maktx.  "Texto breve de material
TYPES: END OF ty_makt.

*Tipo para guardar información de la tabla maestra EKKO
TYPES: BEGIN OF ty_ekko,
  ebeln TYPE ekko-ebeln,  "Número del documento de compras
  ekorg TYPE ekko-ekorg,  "Organización de compras
  ekgrp TYPE ekko-ekgrp,  "Grupo de compras
  waers TYPE ekko-waers,  "Clave de moneda
  ihrez TYPE ekko-ihrez.  "Referencia
TYPES: END OF ty_ekko.

*Tipo para guardar información de la tabla maestra EKPO
TYPES: BEGIN OF ty_ekpo,
  ebeln TYPE ekpo-ebeln,  "Número del documento de compras
  matnr TYPE ekpo-matnr,  "Número de material
  netpr TYPE ekpo-netpr,  "Precio neto en doc.compras moneda documento
  netwr TYPE ekpo-netwr.  "Valor neto de pedido en moneda de pedido
TYPES: END OF ty_ekpo.

*Tipo para guardar información de la tabla maestra VBAP
TYPES: BEGIN OF ty_vbap,
  vbeln TYPE vbap-vbeln,  "Documento de ventas
  posnr TYPE vbap-posnr,  "Posición documento ventas
  waerk TYPE vbap-waerk,  "Moneda de documento comercial
  netpr TYPE vbap-netpr.  "Precio neto
TYPES: END OF ty_vbap.

*Tipo para guardar información de la tabla maestra MBEW
TYPES: BEGIN OF ty_mbew,
  matnr TYPE mbew-matnr,  "Número de material
  bwkey TYPE mbew-bwkey,  "Ámbito de valoración
  verpr TYPE mbew-verpr.  "Precio variable/Precio interno periódico
TYPES: END OF ty_mbew.

*Tipo para guardar la cebecera de la tabla principal [i_layout]
TYPES: BEGIN OF ty_namefields,
  name TYPE char40.       "Nombre del campo
TYPES: END OF ty_namefields.

**--------------------------------------------------------------------**
**  E S T R U C T U R A S                                             **
**--------------------------------------------------------------------**

DATA: w_layout     TYPE zst0140_csdis0mx512,
      w_layout_alv TYPE slis_layout_alv,
      w_xvariant   TYPE disvariant,
      w_variant    TYPE disvariant,
      w_namefield  TYPE ty_namefields,
      w_vbrp       TYPE ty_vbrp,
      w_t001w      TYPE ty_t001w,
      w_vbrk       TYPE ty_vbrk,
      w_kna1       TYPE ty_kna1,
      w_t023t      TYPE ty_t023t,
      w_vbkd       TYPE ty_vbkd,
      w_makt       TYPE ty_makt,
      w_ekpo       TYPE ty_ekpo,
      w_ekko       TYPE ty_ekko,
      w_vbap       TYPE ty_vbap,
      w_mbew       TYPE ty_mbew.

**--------------------------------------------------------------------**
**  T A B L A S   I N T E R N A S                                     **
**--------------------------------------------------------------------**

DATA: i_layout     TYPE ztt0140_csdis0mx512,
      i_fieldcat   TYPE slis_t_fieldcat_alv, " Catalogue of field.
      i_namefield  TYPE STANDARD TABLE OF ty_namefields,
      i_vbrp       TYPE STANDARD TABLE OF ty_vbrp,
      i_t001w      TYPE STANDARD TABLE OF ty_t001w,
      i_t001w_temp TYPE STANDARD TABLE OF ty_t001w,
      i_vbrk       TYPE STANDARD TABLE OF ty_vbrk,
      i_vbrk_temp  TYPE STANDARD TABLE OF ty_vbrk,
      i_kna1       TYPE STANDARD TABLE OF ty_kna1,
      i_t023t      TYPE STANDARD TABLE OF ty_t023t,
      i_vbkd       TYPE STANDARD TABLE OF ty_vbkd,
      i_makt       TYPE STANDARD TABLE OF ty_makt,
      i_ekpo       TYPE STANDARD TABLE OF ty_ekpo,
      i_ekko       TYPE STANDARD TABLE OF ty_ekko,
      i_ekko_temp  TYPE STANDARD TABLE OF ty_ekko,
      i_vbap       TYPE STANDARD TABLE OF ty_vbap,
      i_mbew       TYPE STANDARD TABLE OF ty_mbew.

**--------------------------------------------------------------------**
**  F I E L D S   S Y M B O L S                                       **
**--------------------------------------------------------------------**

FIELD-SYMBOLS:  LIKE LINE OF i_fieldcat.

**--------------------------------------------------------------------**
**                     P A R A M E T R O S                            **
**--------------------------------------------------------------------**

SELECTION-SCREEN: BEGIN OF BLOCK bkl1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_werks FOR vbrp-werks OBLIGATORY,
                s_fkdat FOR vbrk-fkdat OBLIGATORY,
                s_kunrg FOR vbrk-kunrg OBLIGATORY,
                s_matkl FOR vbrp-matkl,
                s_matnr FOR vbrp-matnr.

SELECTION-SCREEN: END OF BLOCK bkl1.


SELECTION-SCREEN: BEGIN OF BLOCK bkl2 WITH FRAME TITLE text-002.

PARAMETERS: p_layout TYPE disvariant-variant.

SELECTION-SCREEN: END OF BLOCK bkl2.

**--------------------------------------------------------------------**
**  M A C R O S                                                       **
**--------------------------------------------------------------------**

DEFINE message_error.

  message id      sy-msgid
          type    sy-msgty
          number  sy-msgno
          with    sy-msgv1
                  sy-msgv2
                  sy-msgv3
                  sy-msgv4.

END-OF-DEFINITION.

DEFINE read_table_mnew.

  clear: w_layout-ebeln,        "Número de documento
         w_layout-netpr_ekpo.   "Costo unitario

  read table i_mbew
        into w_mbew
    with key matnr = w_vbrp-matnr "Material
             bwkey = w_vbrp-werks "Centro
    binary search.

  if sy-subrc eq 0.

    move: w_mbew-verpr to w_layout-netpr_ekpo. "Costo
*                                               unitario

  endif.

END-OF-DEFINITION.

Include de Rutinas


************************************************************************
*                             TEMPLATE                                 *
************************************************************************
** Nombre del Programa: ZCXRE_CSDIS0MX512                             **
** Descripción        : Creación de reporte para ofrecer visibilidad  **
**                      de las operaciones comerciales de PROMEXMA en **
**                      cuanto a la relación costo-venta de productos.**
** Funcional          : Alfredo Vazquez Herrera.                      **
** Consultor ABAP     : Jose Angel Moreno Nieblas MROSALES            **
** Fecha Creación     : 23.06.2009                                    **
** ID Requerimiento   : 25707                                         **
**--------------------------------------------------------------------**

*&---------------------------------------------------------------------*
*&      Form  F_REPORTE_ALV                                            *
*&---------------------------------------------------------------------*
*       Muestra el reporte en forma de ALV                             *
*----------------------------------------------------------------------*
FORM f_reporte_alv .

  PERFORM f_int_fieldcat_alv. "Inicializa el fieldcatalog

  PERFORM f_layout_alv. "Determina el formato de la salida del ALV

  PERFORM f_mostrar_alv.  "Despliega el reporte ALV

ENDFORM.                    " F_REPORTE_ALV
*&---------------------------------------------------------------------*
*&      Form  F_INT_FIELDCAT_ALV                                       *
*&---------------------------------------------------------------------*
*       Inicializa la tabla para agrupar los datos en el ALV           *
*----------------------------------------------------------------------*
FORM f_int_fieldcat_alv .

* Llamado de la función [REUSE_ALV_FIELDCATALOG_MERGE] para inicializar
* el fieldcat [i_fieldcat] con la estructura [w_layout]
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = sy-repid
      i_internal_tabname     = 'W_LAYOUT'
      i_inclname             = 'ZCXRE_CSDIS0MX512_A'
    CHANGING
      ct_fieldcat            = i_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.

  IF sy-subrc <> 0.

*   Utilizando un macro que contiene los mensajes de error
    message_error.

  ELSE.

    LOOP AT i_fieldcat
      ASSIGNING .

      -ddictxt = 'L'.

      CASE -fieldname.

        WHEN 'WEKRS'.

          -seltext_l = text-003.

        WHEN 'NAME1'.

          -seltext_l = text-004.

        WHEN 'FKDAT'.

          -seltext_l = text-005.

        WHEN 'VBELN'.

          -seltext_l = text-006.

        WHEN 'XBLNR'.

          -seltext_l = text-007.

        WHEN 'KUNRG'.

          -seltext_l = text-008.

        WHEN 'NAMEC'.

          -seltext_l = text-009.

        WHEN 'MATKL'.

          -seltext_l = text-010.

        WHEN 'WGBEZ'.

          -seltext_l = text-011.

        WHEN 'AUBEL'.

          -seltext_l = text-012.

        WHEN 'AUPOS'.

          -seltext_l = text-013.

        WHEN 'IHREZ'.

          -seltext_l = text-014.

        WHEN 'MATNR'.

          -seltext_l = text-015.

        WHEN 'MAKTX'.

          -seltext_l = text-016.

        WHEN 'FKIMG'.

          -seltext_l = text-017.

        WHEN 'NETPR_VBAP'.

          -seltext_l = text-018.

        WHEN 'EBELN'.

          -seltext_l = text-019.

        WHEN 'NETPR_EKPO'.

          -seltext_l = text-020.

        WHEN 'NETWR_VBRP'.

          -seltext_l = text-021.

        WHEN 'NETWR_EKPO'.

          -seltext_l = text-022.

        WHEN 'MARGEN'.

          -seltext_l = text-023.

      ENDCASE.

      MODIFY TABLE i_fieldcat
      FROM 
      TRANSPORTING: seltext_l   "Texto largo para la cabecera
                    ddictxt.    "Tipo de texto para la cabecera

    ENDLOOP.

  ENDIF.

ENDFORM.                    " F_INT_FIELDCAT_ALV
*&---------------------------------------------------------------------*
*&      Form  F_MOSTRAR_ALV                                            *
*&---------------------------------------------------------------------*
*       Imprime el alv                                                 *
*----------------------------------------------------------------------*
FORM f_mostrar_alv .

* Llamado de la función [REUSE_ALV_GRID_DISPLAY] para imprimir en
* pantalla el ALV.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'F_SET_STATUS'
      i_callback_user_command  = 'F_USER_COMAND'
      i_structure_name         = 'W_LAYOUT'
      is_layout                = w_layout_alv
      it_fieldcat              = i_fieldcat[]
      i_save                   = 'X'
      is_variant               = w_variant
    TABLES
      t_outtab                 = i_layout
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.

  IF sy-subrc <> 0.

*   Utilizando un macro que contiene los mensajes de error
    message_error.

  ENDIF.

ENDFORM.                    " F_MOSTRAR_ALV
*&---------------------------------------------------------------------*
*&      Form  F_LAYOUT_ALV                                             *
*&---------------------------------------------------------------------*
*       Define el formato de salida del ALV                            *
*----------------------------------------------------------------------*
FORM f_layout_alv .

* Se encarga de mostrar las líneas de un color.
  w_layout_alv-zebra             = c_x.

* Muestra la información en el reglón siguiente en caso de que no quepa
* en ese renglón.
  w_layout_alv-detail_popup      = c_x.

* Se encarga de poner el ancho de la columna de acuerdo al tamaño de
* la información que trae.
  w_layout_alv-colwidth_optimize = c_x.


ENDFORM.                    " F_LAYOUT_ALV
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_DATOS                                          *
*&---------------------------------------------------------------------*
*       Contiene las rutinas y los autority-check para obtener la      *
*       información correspondientes para mostrar el reporte ALV       *
*----------------------------------------------------------------------*
FORM f_obtener_datos .

  PERFORM f_obtener_vbrp. "Obtiene datos de la tabla VBRP

  PERFORM f_obtener_vbrk. "Obtiene datos de la tabla VBRK

ENDFORM.                    " F_OBTENER_DATOS
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_VBRP                                           *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra VBRP                   *
*----------------------------------------------------------------------*
*  En la condición WHERE no se encuentra el campo llave de la tabla    *
*  debido a que no cuento con la información necesaria para obtenerlo  *
*----------------------------------------------------------------------*
FORM f_obtener_vbrp .

* Selecciona los siguientes campos de la tabla VBRP guardando en la
* tabla interna [i_vbrp] con las condiciones del numero de material
* [s_matnr], grupo de artículos [s_matkl] y el centro [s_werks]:
  SELECT  vbeln                   "Factura
          fkimg                   "Cantidad facturada verdaderamente
          gewei                   "Unidad de peso
          netwr                   "Valor neto
          aubel                   "Documento de ventas
          aupos                   "Posición documento ventas
          matnr                   "Número de material
          matkl                   "Grupo de artículos
          werks                   "Centro
    FROM  vbrp
    INTO TABLE  i_vbrp
    WHERE matnr IN s_matnr
    AND   matkl IN s_matkl
    AND   werks IN s_werks.

  IF sy-subrc EQ 0.

*   Ordenando la tabla interna [i_vbrp] por:
    SORT i_vbrp
    BY   vbeln                    "Factura
         matnr.                   "Número de material

    PERFORM f_obtener_t001w. "Obtiene datos de la tabla T001W

    PERFORM f_obtener_vbkd. "Obtiene datos de la tabla VBKD

    PERFORM f_obtener_t023t. "Obtiene datos de la tabla T023T

    PERFORM f_obtener_makt. "Obtiene datos de la tabla MAKT

    PERFORM f_obtener_vbap. "Obtiene datos de la tabla VBAP

    PERFORM f_obtener_mbew. "Obtiene datos de la tabla MBEW

  ELSE.

    CLEAR i_vbrp.

  ENDIF.


ENDFORM.                    " F_OBTENER_VBRP
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_VBRK                                           *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra VBRK                   *
*----------------------------------------------------------------------*
FORM f_obtener_vbrk .

* Selecciona los siguientes campos de la tabla VBRK guardando en la
* tabla interna [i_vbrk] con las condiciones de la fecha de impresión
* de factura [s_fkdat] y del pagador [s_kunrg]:
  SELECT  vbeln                   "Factura
          waerk                   "Moneda de documento comercial
          vkorg                   "Organización de ventas
          fkdat                   "Fecha de impresión de factura
          kunrg                   "Pagador
          xblnr                   "Número de documento de referencia
    FROM  vbrk
    INTO TABLE i_vbrk
    FOR ALL ENTRIES IN i_vbrp
    WHERE vbeln EQ i_vbrp-vbeln
    AND   fkdat IN s_fkdat
    AND   kunrg IN s_kunrg.

  IF sy-subrc EQ 0.

    MOVE i_vbrk TO i_vbrk_temp.

    CLEAR i_vbrk.

    LOOP AT i_vbrk_temp
      INTO w_vbrk.

*     Aplicando el AUTHORITY-CHECK [V_VBRK_VKO]
      AUTHORITY-CHECK OBJECT 'V_VBRK_VKO'
      ID 'VKORG' FIELD w_vbrk-vkorg
      ID 'ACTVT' FIELD '03'.

      IF sy-subrc EQ 0.

        APPEND w_vbrk TO i_vbrk.

      ENDIF.

      CLEAR w_vbrk.

    ENDLOOP.

*   Ordenando la tabla interna [i_vbrk] por:
    SORT i_vbrk
    BY   vbeln.                   "Factura

    PERFORM f_obtener_kna1. "Obtiene datos de la tabla KNA1

  ELSE.

*   Limpiando la tabla interna [i_vbrk]
    CLEAR i_vbrk.

  ENDIF.

ENDFORM.                    " F_OBTENER_VBRK
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_T001W                                          *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra T001W                  *
*----------------------------------------------------------------------*
FORM f_obtener_t001w .

* Selecciona los siguientes campos de la tabla T001W guardando en la
* tabla interna [i_t001w] con la condición del centro [werks] que
* coincidan con los registros de la tabla interna [i_vbrp-werks]:
  SELECT werks                   "Centro
         name1                   "Nombre
    FROM t001w
    INTO TABLE i_t001w
    FOR ALL ENTRIES IN i_vbrp
    WHERE werks EQ i_vbrp-werks.

  IF sy-subrc EQ 0.

*   Ordenando la tabla interna [i_t001w] por:
    SORT i_t001w
    BY   werks.                   "Centro

*   Copiando la tabla interna [i_t001w] a una temporal del mismo tipo
*   para aplicarle el AUTORITY-CHECK
    MOVE i_t001w TO i_t001w_temp.

    CLEAR i_t001w.

    LOOP AT i_t001w_temp
      INTO w_t001w.

*     Aplicando el AUTHORITY-CHECK [V_BEST_WRK]
      AUTHORITY-CHECK OBJECT 'M_BEST_WRK'
      ID 'WERKS' FIELD w_t001w-werks
      ID 'ACTVT' FIELD '03'.

      IF sy-subrc EQ 0.

        APPEND w_t001w TO i_t001w.

      ENDIF.

      CLEAR w_t001w.

    ENDLOOP.

  ELSE.

    CLEAR i_t001w.

  ENDIF.

ENDFORM.                    " F_OBTENER_T001W
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_VBAP                                           *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra VBAP                   *
*----------------------------------------------------------------------*
FORM f_obtener_vbap .

* Selecciona los siguientes campos de la tabla VBAP guardando en la
* tabla interna [i_vbap] con las condiciones de: factura [vbeln]
* y del número de posición del documento [posnr] que coincidan con
* los registros de la tabla interna [i_vbrp-vbeln] y [i_vbrp-posnr]:
  SELECT vbeln                   "Factura
         posnr                   "Número de posición del documento
         waerk                   "Moneda de documento comercial
         netpr                   "Precio Neto
    FROM vbap
    INTO TABLE i_vbap
    FOR ALL ENTRIES IN i_vbrp
    WHERE vbeln EQ i_vbrp-aubel
    AND   posnr EQ i_vbrp-aupos.

  IF sy-subrc EQ 0.

*   Ordenando la tabla interna [i_vbap] por:
    SORT i_vbap
     BY  vbeln                   "Factura
         posnr.                  "Número de posición del documento

  ELSE.

    CLEAR i_vbap.

  ENDIF.

ENDFORM.                    " F_OBTENER_VBAP
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_VBKD                                           *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra VBKD                   *
*----------------------------------------------------------------------*
FORM f_obtener_vbkd .

* Selecciona los siguientes campos de la tabla VBKD guardando en la
* tabla interna [i_vbkd] con la condición de la factura [vbeln] que
* coincidan con los registros de la tabla interna [i_vbrp-aubel]:
  SELECT   vbeln                   "Factura
           posnr                   "Número de posición del documento
           ihrez                   "Referencia
    FROM   vbkd
    INTO TABLE i_vbkd
    FOR ALL ENTRIES IN i_vbrp
    WHERE vbeln EQ i_vbrp-aubel
    AND posnr EQ 0.

  IF sy-subrc EQ 0.

*   Ordenando la tabla interna [i_vbkd] por:
    SORT i_vbkd
    BY   vbeln.                   "Factura

    PERFORM f_obtener_ekko. "Obtiene datos de la tabla EKKO

    PERFORM f_obtener_ekpo. "Obtiene datos de la tabla EKPO

  ELSE.

    CLEAR i_vbkd.

  ENDIF.

ENDFORM.                    " F_OBTENER_VBKD
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_EKKO                                           *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra EKKO                   *
*----------------------------------------------------------------------*
*  En la condición WHERE no se encuentra el campo llave de la tabla    *
*  debido a que no cuento con la información necesaria para obtenerlo  *
*----------------------------------------------------------------------*
FORM f_obtener_ekko .

* Selecciona los siguientes campos de la tabla EKKO guardando en la
* tabla interna [i_ekko] con la condición de la referencia [ihrez] que
* coincidan con los registros de la tabla interna [i_vbkd-ihrez]:
  SELECT   ebeln                   "Número de documento de compras
           ekorg                   "Organización de compras
           ekgrp                   "Grupo de compras
           waers                   "Clave de moneda
           ihrez                   "Referencia
    FROM   ekko
    INTO TABLE i_ekko
    FOR ALL ENTRIES IN i_vbkd
    WHERE ihrez EQ i_vbkd-ihrez.

  IF sy-subrc EQ 0.

*   Ordenando la tabla interna [i_ekko] por:
    SORT i_ekko
    BY   ihrez.                   "Referencia

*   Copiando la tabla interna [i_ekko] a una temporal del mismo tipo
*   para aplicarle el AUTORITY-CHECK
    MOVE i_ekko TO i_ekko_temp.

    CLEAR i_ekko.

    LOOP AT i_ekko_temp
      INTO w_ekko.

*     Aplicando el AUTHORITY-CHECK [V_BEST_EKO]
      AUTHORITY-CHECK OBJECT 'M_BEST_EKO'
      ID 'EKORG' FIELD w_ekko-ekorg
      ID 'ACTVT' FIELD '03'.

      IF sy-subrc EQ 0.

        APPEND w_ekko TO i_ekko.

      ENDIF.

      CLEAR w_ekko.

    ENDLOOP.

    MOVE i_ekko TO i_ekko_temp.

    CLEAR i_ekko.

    LOOP AT i_ekko_temp
      INTO w_ekko.

*     Aplicando el AUTHORITY-CHECK [V_BEST_EKG]
      AUTHORITY-CHECK OBJECT 'M_BEST_EKG'
      ID 'EKGRP' FIELD w_ekko-ekgrp
      ID 'ACTVT' FIELD '03'.

      IF sy-subrc EQ 0.

        APPEND w_ekko TO i_ekko.

      ENDIF.

      CLEAR w_ekko.

    ENDLOOP.

  ELSE.

    CLEAR i_ekko.

  ENDIF.

ENDFORM.                    " F_OBTENER_EKKO
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_EKPO                                           *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra EKPO                   *
*----------------------------------------------------------------------*
FORM f_obtener_ekpo .

* Selecciona los siguientes campos de la tabla EKPO guardando en la
* tabla interna [i_ekpo] con la condición del número del documento de
* compras [ebeln] que coincidan con los registros de la tabla interna
* [i_ekko-ebeln]:
  SELECT   ebeln                   "Número del documento de compras
           matnr                   "Número del material
           netpr                   "Precio neto
           netwr                   "Valor neto
   FROM    ekpo
   INTO TABLE i_ekpo
   FOR ALL ENTRIES IN i_ekko
   WHERE ebeln EQ i_ekko-ebeln.

  IF sy-subrc EQ 0.

*   Ordenando la tabla interna [i_ekpo] por:
    SORT i_ekpo
    BY   ebeln                   "Número del documento de compras
         matnr.                  "Número de material

  ELSE.

    CLEAR i_ekpo.

  ENDIF.

ENDFORM.                    " F_OBTENER_EKPO
*&---------------------------------------------------------------------*
*&      Form  F_LLENAR_LAYOUT                                          *
*&---------------------------------------------------------------------*
*       Rutina que llena nuestra tabla principal para ser mostrada     *
*----------------------------------------------------------------------*
FORM f_llenar_layout .

* Declaración de variables locales
  DATA: lv_name(70) TYPE c VALUE ''. "Para el nombre del cliente

  LOOP AT i_vbrp
    INTO w_vbrp.

    MOVE: w_vbrp-werks TO w_layout-werks,       "Centro
          w_vbrp-netwr TO w_layout-netwr_vbrp,  "Importe de venta
          w_vbrp-matkl TO w_layout-matkl,       "Grupo de material
          w_vbrp-aubel TO w_layout-aubel,       "Pedido
          w_vbrp-aupos TO w_layout-aupos,       "Línea
          w_vbrp-matnr TO w_layout-matnr,       "No. Material
          w_vbrp-fkimg TO w_layout-fkimg,       "Cantidad facturada
          w_vbrp-gewei TO w_layout-gewei.       "Unidad de peso

    READ TABLE  i_t001w
          INTO  w_t001w
      WITH KEY  werks = w_vbrp-werks "Centro
      BINARY SEARCH.

    IF sy-subrc EQ 0.

      MOVE: w_t001w-name1 TO w_layout-name1.    "Descripción centro

      READ TABLE i_vbrk
            INTO w_vbrk
        WITH KEY vbeln = w_vbrp-vbeln "Factura
        BINARY SEARCH.

      IF sy-subrc EQ 0.

        MOVE: w_vbrk-fkdat TO w_layout-fkdat,   "Fecha de factura
              w_vbrk-vbeln TO w_layout-vbeln,   "No. factura SAP
              w_vbrk-xblnr TO w_layout-xblnr,   "No. factura fiscal
              w_vbrk-kunrg TO w_layout-kunrg,   "No. cliente
              w_vbrk-waerk TO w_layout-waers_vbap,  "Moneda
              w_vbrk-waerk TO w_layout-waers_ekko1, "Moneda
              w_vbrk-waerk TO w_layout-waers_ekko2, "Moneda
              w_vbrk-waerk TO w_layout-waers_ekko3, "Moneda
              w_vbrk-waerk TO w_layout-waers_ekko4. "Moneda

        READ TABLE i_kna1
              INTO w_kna1
          WITH KEY kunnr = w_layout-kunrg "Cliente
          BINARY SEARCH.

        IF sy-subrc EQ 0.

*         Concatenando los nombres del cliente.
          CONCATENATE w_kna1-name1
                      w_kna1-name2
                 INTO lv_name
                 SEPARATED BY space.

          MOVE: lv_name TO w_layout-namec.    "Descripción cliente

          READ TABLE i_vbap
                INTO w_vbap
            WITH KEY vbeln = w_vbrp-aubel "Pedido
                     posnr = w_vbrp-aupos "Linea
            BINARY SEARCH.

          IF sy-subrc EQ 0.

            MOVE: w_vbap-netpr TO w_layout-netpr_vbap.  "Precio
*                                                       Unitario de
*                                                         Venta

            READ TABLE i_vbkd
                  INTO w_vbkd
              WITH KEY vbeln = w_vbrp-aubel
              BINARY SEARCH.

            IF sy-subrc EQ 0.

              MOVE: w_vbkd-ihrez TO w_layout-ihrez.   "Referencia

              READ TABLE i_ekko
                    INTO w_ekko
                WITH KEY ihrez = w_layout-ihrez "Referencia
                BINARY SEARCH.

              IF sy-subrc EQ 0.

                IF w_layout-ihrez IS INITIAL.

*                 Utilizando un macro que contiene el read table a mbew
                  read_table_mnew.

                ELSE.

                  MOVE: w_ekko-ebeln TO w_layout-ebeln. "Orden de
*                                                        compra

                  READ TABLE i_ekpo
                        INTO w_ekpo
                    WITH KEY ebeln = w_layout-ebeln  "Documento
                             matnr = w_vbrp-matnr    "Material
                    BINARY SEARCH.

                  IF sy-subrc EQ 0.

                    MOVE: w_ekpo-netpr TO w_layout-netpr_ekpo, "Costo
*                                                             unitario
                          w_ekpo-netwr TO w_layout-netwr_ekpo. "Costo de
*                                                             venta

                  ENDIF.

                ENDIF.

              ELSE.

*               Utilizando un macro que contiene el read table a mbew
                read_table_mnew.

              ENDIF.

            ENDIF.

            READ TABLE i_t023t
                  INTO w_t023t
              WITH KEY matkl = w_vbrp-matkl "Grupo de Material
              BINARY SEARCH.

            IF sy-subrc EQ 0.

              MOVE: w_t023t-wgbez TO w_layout-wgbez.  "Descripción
*                                                      Grupo de Material

              READ TABLE i_makt
                    INTO w_makt
                WITH KEY matnr = w_vbrp-matnr "Material
                BINARY SEARCH.

              IF sy-subrc EQ 0.

                MOVE: w_makt-maktx TO w_layout-maktx. "Descripción del
*                                                           Material

*               Asignando el resultado de la resta al margen
                w_layout-margen = w_layout-netwr_vbrp - "Importe Venta
                                  w_layout-netwr_ekpo.  "Costo Venta

                APPEND w_layout TO i_layout.

              ENDIF.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

    ENDIF.

    CLEAR w_layout.

  ENDLOOP.

ENDFORM.                    " F_LLENAR_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_T023T                                          *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra T023T                  *
*----------------------------------------------------------------------*
FORM f_obtener_t023t .

* Selecciona los siguientes campos de la tabla T023T guardando en la
* tabla interna [i_t023t] con las condiciones: grupo de artículos
* [maktl] y el lenguaje del usuario [spras] que coincidan con los
* registros de la tabla interna [i_vbrp-matkl] y [sy-langu]:
  SELECT matkl                   "Grupo de artículos
         wgbez                   "Descripción grupo de material
    FROM t023t
    INTO TABLE i_t023t
    FOR ALL ENTRIES IN i_vbrp
    WHERE matkl = i_vbrp-matkl
    AND   spras = sy-langu.

  IF sy-subrc EQ 0.

*   Ordenando la tabla interna [i_t023t] por:
    SORT i_t023t
    BY matkl.                   "Grupo de artículos

  ELSE.

    CLEAR i_t023t.

  ENDIF.

ENDFORM.                    " F_OBTENER_T023T
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_MAKT                                           *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra MAKT                   *
*----------------------------------------------------------------------*
FORM f_obtener_makt .

* Selecciona los siguientes campos de la tabla MAKT guardando en la
* tabla interna [i_makt] con la condición del número de material [matnr]
* que coincidan con los registros de la tabla interna [i_vbro-matnr]:
  SELECT matnr                   "Número de material
         maktx                   "Texto breve del material
    FROM makt
    INTO TABLE i_makt
    FOR ALL ENTRIES IN i_vbrp
    WHERE matnr = i_vbrp-matnr.

  IF sy-subrc EQ 0.

*   Ordenando la tabla interna [i_makt] por:
    SORT i_makt
    BY   matnr.                   "Número de material

  ELSE.

    CLEAR i_makt.

  ENDIF.

ENDFORM.                    " F_OBTENER_MAKT
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_MBEW                                           *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra MBEW                   *
*----------------------------------------------------------------------*
FORM f_obtener_mbew .
* Selecciona los siguientes campos de la tabla MBEW guardando en la
* tabla interna [i_mbew] con las condiciones: número de material [matnr]
* y ámbito de valoración [bwkey] que coincidan con los registros de la
* tabla interna [i_vbrp-matnr] y [i_vbrp-werks]:
  SELECT matnr                   "Número de material
         bwkey                   "Ámbito de valoración
         verpr                   "Precio variable / interno periódico
    FROM mbew
    INTO TABLE i_mbew
    FOR ALL ENTRIES IN i_vbrp
    WHERE matnr = i_vbrp-matnr
    AND   bwkey = i_vbrp-werks.

  IF sy-subrc = 0.

*   Ordenando la tabla interna [i_mbew] por:
    SORT i_mbew
    BY   matnr                   "Número de material
         bwkey.                  "Ámbito de valoración

  ELSE.

    CLEAR i_mbew.

  ENDIF.

ENDFORM.                    " F_OBTENER_MBEW
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_KNA1                                           *
*&---------------------------------------------------------------------*
*       Obtiene información de la tabla maestra KNA1                   *
*----------------------------------------------------------------------*
FORM f_obtener_kna1 .

* Selecciona los siguientes campos de la tabla KNAI guardando en la
* tabla interna [i_kna1] con la condición del número de cliente [kunnr]
* coincidan con los registros de la tabla interna [i_vbrk-kunrg]:
  SELECT kunnr                   "No. Cliente
         name1                                              "Nombre 1
         name2                                              "Nombre 2
    FROM kna1
    INTO TABLE i_kna1
    FOR ALL ENTRIES IN i_vbrk
    WHERE kunnr = i_vbrk-kunrg.

  IF sy-subrc EQ 0.

*   Ordenando la tabla interna [i_kna1] por:
    SORT i_kna1
    BY kunnr.                   "No. Cliente

  ELSE.

    CLEAR i_kna1.

  ENDIF.

ENDFORM.                    " F_OBTENER_KNA1
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_VARIANTE                                       *
*&---------------------------------------------------------------------*
*       Obtiene una variante almacenada con el matchcode               *
*----------------------------------------------------------------------*
FORM f_obtener_variante .

* Declaración de variables locales
  DATA: lv_exit TYPE c VALUE ''. "Guarda la acción del usuario

* Llamado a la función [REUSE_ALV_VARIANT_F4] para buscar una variante
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = w_xvariant
      i_save        = 'A'
    IMPORTING
      e_exit        = lv_exit
      es_variant    = w_xvariant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.

  IF sy-subrc NE 0.

*   Utilizando un macro que contiene los mensajes de error
    message_error.

  ELSE.

    IF lv_exit = space.

      p_layout = w_xvariant-variant.

    ENDIF.

  ENDIF.

ENDFORM.                    " F_OBTENER_VARIANTE
*&---------------------------------------------------------------------*
*&      Form  F_INICIALIZAR_VARIANTE                                   *
*&---------------------------------------------------------------------*
*       Inicializando la variante default                              *
*----------------------------------------------------------------------*
FORM f_inicializar_variante .

* Indica el nombre del programa principal
  w_variant-report    = sy-repid.

* Indica el usuario
  w_variant-username  = sy-uname.

* Se toma la variante
  w_xvariant = w_variant.

* Llamado a la función [REUSE_ALV_VARIANT_DEFAULT_GET] para guardar la
* la variante
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save        = 'A'
    CHANGING
      cs_variant    = w_xvariant
    EXCEPTIONS
      wrong_input   = 1
      not_found     = 2
      program_error = 3
      OTHERS        = 4.

  IF sy-subrc = 0.

    p_layout = w_xvariant-variant.

  ENDIF.

ENDFORM.                    " F_INICIALIZAR_VARIANTE
*&---------------------------------------------------------------------*
*&      Form  F_CARGAR_VARIANTE                                        *
*&---------------------------------------------------------------------*
*       Activa una variante existente                                  *
*----------------------------------------------------------------------*
FORM f_cargar_variante .

  IF NOT p_layout IS INITIAL.

    MOVE w_variant TO w_xvariant.
    MOVE p_layout  TO w_xvariant-variant.

*   Llamado de la función [REUSE_ALV_VARIANT_EXISTENCE] para aplicar una
*   variante exitente en el ALV
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save        = 'A'
      CHANGING
        cs_variant    = w_xvariant
      EXCEPTIONS
        wrong_input   = 1
        not_found     = 2
        program_error = 3
        OTHERS        = 4.

    IF sy-subrc = 0.

      w_variant = w_xvariant.

    ELSE.

*     Utilizando un macro que contiene los mensajes de error
      message_error.

    ENDIF.

  ELSE.

    PERFORM f_inicializar_variante. "Rutina que inicializa la variante

  ENDIF.

ENDFORM.                    " F_CARGAR_VARIANTE
*&---------------------------------------------------------------------*
*&      Form  F_SET_STATUS                                             *
*&---------------------------------------------------------------------*
*       Asignación del PF_STATUS al ALV                                *
*----------------------------------------------------------------------*
FORM f_set_status
  USING rt_extab TYPE slis_t_extab.

* Asigna un PF-STATUS [PF0100]
  SET PF-STATUS 'PF0100' EXCLUDING rt_extab.

ENDFORM.                    " F_SET_STATUS
*&---------------------------------------------------------------------*
*&      Form  F_USER_COMAND                                            *
*&---------------------------------------------------------------------*
*       Rutina que asigna un USER-COMMAND al PF-STATUS PF0100          *
*       p_v_okcode    Contiene la acción del usuario                   *
*       p_v_selfield  Contiene la selección del campo                  *
*----------------------------------------------------------------------*
FORM f_user_comand
  USING    p_v_okcode    TYPE sy-ucomm
           p_v_selfield  TYPE slis_selfield.

  IF p_v_okcode = '&EXCEL'.

*   Rutina que guarda un archivo en formato excel
    PERFORM f_bajar_excel.

  ENDIF.

ENDFORM.                    "F_USER_COMAND
*&---------------------------------------------------------------------*
*&      Form  F_BAJAR_EXCEL                                            *
*&---------------------------------------------------------------------*
*       Rutina que guarda la tabla i_report en archivo de excel        *
*----------------------------------------------------------------------*
FORM f_bajar_excel .

* Declaración de variables locales
  DATA: lv_namefile TYPE string VALUE '', "Guarda el nombre del reporte
        lv_fullpath TYPE string VALUE '', "Guarda la ruta donde guarda
        lv_action   TYPE i.               "Guarda la acción de usuario

  LOOP AT i_fieldcat
    ASSIGNING .

    MOVE -seltext_l TO w_namefield-name.

    APPEND w_namefield TO i_namefield.

    CLEAR w_namefield.

  ENDLOOP.

  "Se concatena dentro [v_namefile] con el fin de obtener el nombre
  "del archivo por default separados por [c_separador1] lo siguiente:
  CONCATENATE 'REPORT' "Nombre del reporte
              sy-datlo  "Fecha del sistema
              sy-uzeit  "Hora del sistema
       INTO   lv_namefile
       SEPARATED BY '_'.

* Llamado de la función [GUI_FILE_SAVE_DIALOG] para guadar la ruta y el
* nombre del archivo
  CALL FUNCTION 'GUI_FILE_SAVE_DIALOG'
    EXPORTING
      window_title      = 'GUARDAR ARCHIVO EN:'
      default_extension = '.XLS'
      default_file_name = lv_namefile
      initial_directory = 'C:\'
    IMPORTING
      fullpath          = lv_fullpath
      user_action       = lv_action.

  IF lv_action = 9.

    RETURN.

  ELSE.

*  Llamado de la función [GUI_DOWNLOAD] para descargar el archivo en el
*  directorio y con el nombre escogidos.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename                = lv_fullpath
        filetype                = 'DAT'
      TABLES
        data_tab                = i_layout
        fieldnames              = i_namefield
      EXCEPTIONS
        file_write_error        = 1
        no_batch                = 2
        gui_refuse_filetransfer = 3
        invalid_type            = 4
        no_authority            = 5
        unknown_error           = 6
        header_not_allowed      = 7
        separator_not_allowed   = 8
        filesize_not_allowed    = 9
        header_too_long         = 10
        dp_error_create         = 11
        dp_error_send           = 12
        dp_error_write          = 13
        unknown_dp_error        = 14
        access_denied           = 15
        dp_out_of_memory        = 16
        disk_full               = 17
        dp_timeout              = 18
        file_not_found          = 19
        dataprovider_exception  = 20
        control_flush_error     = 21
        OTHERS                  = 22.

    IF sy-subrc NE 0.

*     Utilizando un macro que contiene los mensajes de error
      message_error.

    ENDIF.

  ENDIF.

ENDFORM.                    " F_BAJAR_EXCEL

ALV GRID: REPORTE DE SALDOS A FAVOR

2010-07-22T09:32:00.001-07:00

Programa Principal


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Program name         : ZGCCRE_AR01_SALDOS_FAVOR                      *
* Description          : Reporte de Saldos a Favor                     *
* Functional           : Willvert Ruiz                                 *
* Developer            : Isa Villarreal exchneo_f14                    *
* Creation Date        : 20.05.2010                                    *
* ID Component         : AR01                                          *
* Requirement Number   : AR01                                          *
*----------------------------------------------------------------------*
*                      MODIFICATIONS LOG                               *
*----------------------------------------------------------------------*
* Description          : Agregar columnas, parametros de seleccion     *
* Functional           : Javier Echavez                                *
* Developer            : Jose Angel Moreno Nieblas EXCHNEO_F09         *
* Modification date    : 06.07.2010                                    *
* ID Component         : AR01                                          *
*----------------------------------------------------------------------*
REPORT  zgccre_ar01_saldos_favor.

INCLUDE zgccre_ar01_saldos_favor_a.
INCLUDE zgccre_ar01_saldos_favor_b.

*----------------------------------------------------------------------*
* A T   S E L E C T I O N   S C R E E N                                *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_blart-low.

  SELECT blart
         ltext
    FROM t003t
    INTO TABLE i_blart
   WHERE ( blart EQ c_anticipo
      OR  blart EQ c_abono ) "EXCHNEO_F14 24.06.2010 E-RGARZA
     AND spras = sy-langu.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'BLART'
      window_title    = text-020
      value_org       = 'S'
    TABLES
      value_tab       = i_blart
      return_tab      = i_match
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF sy-subrc EQ 0.
    READ TABLE i_match INDEX 1.
    MOVE i_match-fieldval TO s_blart-low.
  ENDIF.

* BEGIN: EXCHNEO_F14 28.06.2010 E-RGARZA

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_pernr-low .

  PERFORM f_select_pernr.

  MOVE i_match-fieldval TO s_pernr-low.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_pernr-high.

  PERFORM f_select_pernr.

  MOVE i_match-fieldval TO s_pernr-high.

* END: EXCHNEO_F14 28.06.2010 E-RGARZA

AT SELECTION-SCREEN OUTPUT.
* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA

perform f_valida_blart.

* END: EXCHNEO_F14 24.06.2010 E-RGARZA

*----------------------------------------------------------------------*
* A T   S E L E C T I O N   S C R E E N                                *
*----------------------------------------------------------------------*
* Process on value request

* Use list variant entered

INITIALIZATION.

START-OF-SELECTION.

  PERFORM f_authority_check.

* Valida el asesor y el segmnto.
  PERFORM f_validaciones.

  PERFORM f_carga_info.

* Forma el reporte
  PERFORM f_genera_salida.

* Obtains the catalog for alv report
  PERFORM f_fills_catalog.

* Obtains column name for alv report
  PERFORM f_fieldcat.

  PERFORM f_build_events.

* Sort ALV
  PERFORM f_sort .

* Shows the report
  PERFORM f_shows_report.

Include de Declaraciones


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Program name         : ZGCCRE_AR01_SALDOS_FAVOR                      *
* Description          : Reporte de Saldos a Favor                     *
* Functional           : Willvert Ruiz                                 *
* Developer            : Isa Villarreal exchneo_f14                    *
* Creation Date        : 20.05.2010                                    *
* ID Component         : AR01                                          *
* Requirement Number   : AR01                                          *
*----------------------------------------------------------------------*
*                      MODIFICATIONS LOG                               *
*----------------------------------------------------------------------*
* Description          : Agregar columnas, parametros de seleccion     *
* Functional           : Javier Echavez                                *
* Developer            : Jose Angel Moreno Nieblas EXCHNEO_F09         *
* Modification date    : 06.07.2010                                    *
* ID Component         : AR01                                          *
*----------------------------------------------------------------------*

TABLES:  bsid,
         knvv,
         bkpf,
         knvp,
         ddshretval..

TYPE-POOLS:
  slis.

TYPES: BEGIN OF ty_clientes,
         kunnr TYPE kna1-kunnr,
       END OF ty_clientes.

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
TYPES: BEGIN OF ty_knb1,
        bukrs LIKE knb1-bukrs,
        kunnr LIKE knb1-bukrs,
       END OF ty_knb1.

TYPES: BEGIN OF ty_grp_bsid,
        zuonr LIKE bsid-zuonr,
        kunnr LIKE bsid-kunnr,
        gjahr LIKE bsid-gjahr,
        dmbtr LIKE bsid-dmbtr,
       END OF ty_grp_bsid.

TYPES: BEGIN OF ty_grp_docs,
        belnr LIKE bsid-belnr,
        zuonr LIKE bsid-zuonr,
        blart LIKE bsid-blart,
        dmbtr LIKE bsid-dmbtr,
       END OF ty_grp_docs.

TYPES: BEGIN OF ty_bsad,
         bukrs TYPE bsad-bukrs,
         kunnr TYPE bsad-kunnr,
         augbl TYPE bsad-augbl,
         gjahr TYPE bsad-gjahr,
         belnr TYPE bsad-belnr,
         buzei TYPE bsad-buzei,
         budat TYPE bsad-budat,
         blart TYPE bsad-blart,
         dmbtr TYPE bsad-dmbtr,
         hkont TYPE bsad-hkont,
         vbeln TYPE bsad-vbeln,
         kkber TYPE bsad-kkber,
         sgtxt TYPE bsad-sgtxt,
         shkzg TYPE bsad-shkzg,
         zuonr TYPE bsad-zuonr,
      END OF ty_bsad.
* END: EXCHNEO_F14 24.06.2010 E-RGARZA

TYPES: BEGIN OF ty_t001,
  bukrs       TYPE t001-bukrs,        "Sociedad.
END OF ty_t001.

TYPES: BEGIN OF ty_knvp,
         kunnr TYPE kna1-kunnr,
         pernr TYPE knvp-pernr,
       END OF ty_knvp.

TYPES: BEGIN OF ty_knvv,
         kunnr TYPE kna1-kunnr,
         vkgrp TYPE knvv-vkgrp,
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
         vkbur TYPE knvv-vkbur,
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
       END OF ty_knvv.

* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
TYPES: BEGIN OF ty_tvkbt,
  vkbur TYPE tvkbt-vkbur,
  bezei TYPE tvkbt-bezei.
TYPES: END OF ty_tvkbt.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

TYPES: BEGIN OF ty_bsid,
         bukrs TYPE bsid-bukrs,
         kunnr TYPE bsid-kunnr,
         gjahr TYPE bsid-gjahr,
         belnr TYPE bsid-belnr,
         buzei TYPE bsid-buzei,
         budat TYPE bsid-budat,
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
         bldat TYPE bsid-bldat,
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
         blart TYPE bsid-blart,
         dmbtr TYPE bsid-dmbtr,
         hkont TYPE bsid-hkont,
         vbeln TYPE bsid-vbeln,
         kkber TYPE bsid-kkber,
         sgtxt TYPE bsid-sgtxt,
         shkzg TYPE bsid-shkzg,  "mgvg
         zuonr TYPE bsid-zuonr,  "mgvg
         vbeln2 TYPE vbrk-vbeln,  "mgvg
       END OF ty_bsid.

TYPES: BEGIN OF ty_bkpf,
         bukrs TYPE bsid-bukrs,
         belnr TYPE bsid-belnr,
         gjahr TYPE bsid-gjahr,
         usnam TYPE bkpf-usnam,
       END OF ty_bkpf.


TYPES: BEGIN OF ty_bseg,
         bukrs TYPE bsid-bukrs,
         belnr TYPE bsid-belnr,
         gjahr TYPE bsid-gjahr,
         dmbtr TYPE bseg-dmbtr,
         hkont TYPE bseg-hkont,
       END OF ty_bseg.

TYPES: BEGIN OF ty_pa0002,
         pernr TYPE pa0002-pernr,
         vorna TYPE pa0002-vorna,
         nach2 TYPE pa0002-nach2,
         nachn TYPE pa0002-nachn,
       END OF ty_pa0002.

TYPES: BEGIN OF ty_tvgrt,
         vkgrp TYPE tvgrt-vkgrp,
         bezei TYPE tvgrt-bezei,
       END OF ty_tvgrt.

TYPES: BEGIN OF ty_kna1,
         kunnr TYPE kna1-kunnr,
         name1 TYPE kna1-name1,
       END OF ty_kna1.

TYPES: BEGIN OF ty_t014t,
         kkber TYPE t014t-kkber,
         kkbtx TYPE t014t-kkbtx,
       END OF ty_t014t.

TYPES: BEGIN OF ty_vbrk,
         vbeln TYPE vbrk-vbeln,
       END   OF ty_vbrk.

TYPES: BEGIN OF ty_blart,
         blart TYPE t003t-blart,
         ltext TYPE t003t-ltext,
       END   OF ty_blart.

CONSTANTS: c_irango_cred TYPE bseg-hkont VALUE '0000110000',
           c_frango_cred TYPE bseg-hkont VALUE '0000110999',
           c_irango_cont TYPE bseg-hkont VALUE '0000100000',
           c_frango_cont TYPE bseg-hkont VALUE '0000100100',
           c_asesor TYPE knvp-parvw VALUE 'ZE',
           c_anticipo TYPE bsid-blart VALUE 'DZ',
           c_abono TYPE bsid-blart VALUE 'DG',
* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
           c_acount TYPE bsid-blart VALUE 'AB',
* END: EXCHNEO_F14 24.06.2010 E-RGARZA
           c_s     TYPE bsid-shkzg VALUE 'S',
           c_h     TYPE bsid-shkzg VALUE 'H'.


**--------------------------------------------------------------------**
**  S T R U C T U R E S                                               **
**--------------------------------------------------------------------**
*
DATA: w_sort        TYPE slis_sortinfo_alv,
      w_title_alv   TYPE slis_listheader,
      w_footer_alv  TYPE slis_listheader,
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
      w_tvkbt       TYPE ty_tvkbt,
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
      w_variant     TYPE disvariant,
      w_xvariant    TYPE disvariant.

* Catalog table
DATA: i_fieldcat  TYPE slis_t_fieldcat_alv.
DATA i_sort TYPE slis_t_sortinfo_alv.

DATA: i_title_alv   TYPE slis_t_listheader,
      i_footer_alv  TYPE slis_t_listheader,
      i_events      TYPE  slis_t_event.

DATA: BEGIN OF i_out OCCURS 0,
         belnr LIKE bsid-belnr,
         blart LIKE bsid-blart,
         bukrs LIKE bsid-bukrs,
         total LIKE bsid-dmbtr,
         abierto LIKE bsid-dmbtr,
         bezei LIKE tvgrt-bezei,
         asesor LIKE pa0002-pernr,
         nombre(30) TYPE c,
         kunnr LIKE bsid-kunnr,
         name1 LIKE kna1-name1,
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*         budat LIKE bsid-budat,
         bldat LIKE bsid-bldat,
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
         gjahr LIKE bsid-gjahr,
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*         kkbtx LIKE t014t-kkbtx,
         bezei2 LIKE tvkbt-bezei,
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*         hkont LIKE bsid-hkont,
         thkont(10) TYPE c,
         usnam LIKE bkpf-usnam,
         sgtxt LIKE bsid-sgtxt,
       END OF i_out.

DATA: i_clientes   TYPE STANDARD TABLE OF ty_clientes  WITH HEADER LINE,
      i_knvp       TYPE STANDARD TABLE OF ty_knvp  WITH HEADER LINE,
      i_knvv       TYPE STANDARD TABLE OF ty_knvv  WITH HEADER LINE,
      i_bsid       TYPE STANDARD TABLE OF ty_bsid  WITH HEADER LINE,
      i_bsid2      TYPE STANDARD TABLE OF ty_bsid  WITH HEADER LINE,
      i_bkpf       TYPE STANDARD TABLE OF ty_bkpf  WITH HEADER LINE,
      i_bseg       TYPE STANDARD TABLE OF ty_bseg  WITH HEADER LINE,
      i_pa0002     TYPE STANDARD TABLE OF ty_pa0002  WITH HEADER LINE,
      i_tvgrt      TYPE STANDARD TABLE OF ty_tvgrt  WITH HEADER LINE,
      i_kna1       TYPE STANDARD TABLE OF ty_kna1  WITH HEADER LINE,
      i_t014t      TYPE STANDARD TABLE OF ty_t014t  WITH HEADER LINE,
      i_t001       TYPE STANDARD TABLE OF ty_t001 WITH HEADER LINE,
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
      i_tvkbt      TYPE STANDARD TABLE OF ty_tvkbt,
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
      i_vbrk       TYPE STANDARD TABLE OF ty_vbrk WITH HEADER LINE,
      i_blart      TYPE STANDARD TABLE OF ty_blart WITH HEADER LINE.

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
DATA: i_knb1 TYPE STANDARD TABLE OF ty_knb1 WITH HEADER LINE,
      i_grp_bsid TYPE STANDARD TABLE OF ty_grp_bsid WITH HEADER LINE,
      i_bsid_ab TYPE STANDARD TABLE OF ty_bsid WITH HEADER LINE,
      i_grp_docs TYPE STANDARD TABLE OF ty_grp_docs WITH HEADER LINE,
      i_bsad TYPE STANDARD TABLE OF ty_bsad WITH HEADER LINE.

DATA: BEGIN OF i_bseg2 OCCURS 0,
        bukrs LIKE bseg-bukrs,
        belnr LIKE bseg-belnr,
        gjahr LIKE bseg-gjahr,
        buzei LIKE bseg-buzei,
        dmbtr LIKE bseg-dmbtr,
        hkont LIKE bseg-hkont,
      END OF i_bseg2.

DATA: BEGIN OF i_bseg3 OCCURS 0,
        bukrs LIKE bseg-bukrs,
        belnr LIKE bseg-belnr,
        gjahr LIKE bseg-gjahr,
        buzei LIKE bseg-buzei,
        dmbtr LIKE bseg-dmbtr,
        hkont LIKE bseg-hkont,
      END OF i_bseg3.

DATA: BEGIN OF i_bseg_sum1 OCCURS 0,
        bukrs LIKE bseg-bukrs,
        belnr LIKE bseg-belnr,
        gjahr LIKE bseg-gjahr,
        dmbtr LIKE bseg-dmbtr,
      END OF i_bseg_sum1.

DATA: BEGIN OF i_bseg_sum2 OCCURS 0,
        bukrs LIKE bseg-bukrs,
        belnr LIKE bseg-belnr,
        gjahr LIKE bseg-gjahr,
        dmbtr LIKE bseg-dmbtr,
      END OF i_bseg_sum2.

DATA: BEGIN OF i_pa0001 OCCURS 0,
        pernr LIKE pa0001-pernr,
        ename LIKE pa0001-ename,
      END OF i_pa0001.

DATA: BEGIN OF i_knvp_sel OCCURS 0,
        pernr LIKE knvp-pernr,
      END OF i_knvp_sel.

* END: EXCHNEO_F14 24.06.2010 E-RGARZA

DATA: BEGIN OF i_match OCCURS 0,  "Esta tabla nos devuelve la ayuda
               shlpname  LIKE ddshretval-shlpname,
               fieldname LIKE ddshretval-fieldname,
               recordpos LIKE ddshretval-recordpos,
               fieldval  LIKE ddshretval-fieldval,
               retfield  LIKE ddshretval-retfield,
      END OF i_match.

RANGES: r_bukrs FOR t001-bukrs,
        r_kunnr FOR kna1-kunnr.


DATA: v_apunta TYPE sy-tabix,
      v_title_alv  TYPE lvc_title.


SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME.

SELECT-OPTIONS:
    s_bukrs FOR bsid-bukrs OBLIGATORY,
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
    s_vkbur FOR knvv-vkbur,
*    s_kkber FOR bsid-kkber,
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
    s_blart FOR bsid-blart OBLIGATORY DEFAULT 'DZ',
    s_kunnr FOR bsid-kunnr,
    s_vkgrp FOR knvv-vkgrp,
    s_pernr FOR knvp-pernr ,
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*    s_budat FOR bsid-budat,
    s_bldat FOR bsid-bldat,
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
    s_user FOR bkpf-usnam.

PARAMETERS:
    p_cred AS CHECKBOX DEFAULT 'X',
    p_cont AS CHECKBOX DEFAULT 'X',
    p_ncred AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN: END OF BLOCK blk1.

Include de Rutinas


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Program name         : ZGCCRE_AR01_SALDOS_FAVOR                      *
* Description          : Reporte de Saldos a Favor                     *
* Functional           : Willvert Ruiz                                 *
* Developer            : Isa Villarreal exchneo_f14                    *
* Creation Date        : 20.05.2010                                    *
* ID Component         : AR01                                          *
* Requirement Number   : AR01                                          *
*----------------------------------------------------------------------*
*                      MODIFICATIONS LOG                               *
*----------------------------------------------------------------------*
* Description          : Se agregaron validaciones para cliente y tipo *
*                        de Documento, Corrección para mostrar documen-*
*                       -tos DG, agrupar saldos a favor y corregir     *
*                        monto total                                   *
* Functional           : Willvert Ruiz                                 *
* Developer            : Rubén David Garza Castro E-RGARZA EXCHNEO_F14 *
* Modification date    : 24.06.2010                                    *
* ID Component         :                                               *
* Requirement Number   : OCT-AR01                                      *
*----------------------------------------------------------------------*
* Description          : Agregar columnas, parametros de seleccion     *
* Functional           : Javier Echavez                                *
* Developer            : Jose Angel Moreno Nieblas EXCHNEO_F09         *
* Modification date    : 06.07.2010                                    *
* ID Component         : AR01                                          *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  F_CARGA_INFO                                             *
*&---------------------------------------------------------------------*
*       Carga la información de las tablas                             *
*----------------------------------------------------------------------*
FORM f_carga_info .
  CONSTANTS: lc_clave_cont TYPE bseg-bschl VALUE '40',
             lc_cta_deud   TYPE bseg-koart VALUE 'S',
             lc_debe       TYPE bseg-shkzg VALUE 'S'.

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
  DATA: lv_tabix LIKE sy-tabix.
* END: EXCHNEO_F14 24.06.2010 E-RGARZA

  IF NOT i_clientes[] IS INITIAL.

* Lee BSID.
    SELECT bukrs
           kunnr
           gjahr
           belnr
           buzei
           budat
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
           bldat
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
           blart
           dmbtr
           hkont
           vbeln
           kkber
           sgtxt
           shkzg
           zuonr
       INTO TABLE i_bsid
       FROM bsid
       FOR ALL ENTRIES IN i_clientes
       WHERE bukrs IN s_bukrs
         AND kunnr = i_clientes-kunnr
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*         AND budat IN s_budat
         AND bldat IN s_bldat.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*         AND blart IN s_blart "mgvg
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*         AND kkber IN s_kkber.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
    IF sy-subrc NE 0.

      MESSAGE e208(00) WITH text-007.

    ENDIF.
* END: EXCHNEO_F14 24.06.2010 E-RGARZA

  ELSE.

    SELECT bukrs
           kunnr
           gjahr
           belnr
           buzei
           budat
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
           bldat
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
           blart
           dmbtr
           hkont
           vbeln
           kkber
           sgtxt
           shkzg
           zuonr
       INTO TABLE i_bsid
       FROM bsid
       WHERE bukrs IN s_bukrs
         AND kunnr IN s_kunnr
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*         AND budat IN s_budat
         AND bldat IN s_bldat.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*         AND blart IN s_blart
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*         AND kkber IN s_kkber.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
    IF sy-subrc NE 0.

      MESSAGE e208(00) WITH text-007.

    ENDIF.
* END: EXCHNEO_F14 24.06.2010 E-RGARZA

  ENDIF.

  IF i_bsid[] IS INITIAL.

    MESSAGE i368(00) WITH text-003.
    STOP.

  ENDIF.

* Lee la contabilización en BSEG del documento.
  SELECT bukrs
         belnr
         gjahr
         dmbtr
         hkont
     INTO TABLE i_bseg
     FROM bseg
     FOR ALL ENTRIES IN i_bsid
     WHERE bukrs = i_bsid-bukrs
       AND belnr = i_bsid-belnr
       AND gjahr = i_bsid-gjahr
       AND bschl = lc_clave_cont
       AND koart = lc_cta_deud
       AND shkzg = lc_debe.

  IF sy-subrc = 0.
    SORT i_bseg
      BY bukrs
         belnr
         gjahr.
  ENDIF.

** Ahora depura los docs dependiendo si son contado o crédito.
*  LOOP AT i_bsid.
*    MOVE sy-tabix TO v_apunta.
*    READ TABLE i_bseg
*      WITH KEY bukrs = i_bsid-bukrs
*               belnr = i_bsid-belnr
*               gjahr = i_bsid-gjahr
*               BINARY SEARCH.
*    IF sy-subrc = 0.
*      MOVE i_bseg-hkont TO i_bsid-hkont.
*      MODIFY i_bsid INDEX v_apunta TRANSPORTING hkont.
*    ENDIF.
*
*    IF p_cred <> 'X'.
*
*      IF i_bsid-hkont >= c_irango_cred AND
*         i_bsid-hkont <= c_frango_cred.
**         La cuenta se queda.
*      ELSE.
*        DELETE i_bsid INDEX v_apunta.
*      ENDIF.
*    ENDIF.
*
*  ENDLOOP.

*  LOOP AT i_bsid.
*    MOVE sy-tabix TO v_apunta.
*    READ TABLE i_bseg
*      WITH KEY bukrs = i_bsid-bukrs
*               belnr = i_bsid-belnr
*               gjahr = i_bsid-gjahr
*               BINARY SEARCH.
*    IF sy-subrc = 0.
*      MOVE i_bseg-hkont TO i_bsid-hkont.
*      MODIFY i_bsid INDEX v_apunta TRANSPORTING hkont.
*    ENDIF.
*    IF p_cont <> 'X'.
*      IF i_bsid-hkont >= c_irango_cont AND
*         i_bsid-hkont <= c_frango_cont.
**         La cuenta se queda.
*      ELSE.
*        DELETE i_bsid INDEX v_apunta.
*      ENDIF.
*    ENDIF.
*
*  ENDLOOP.
*
** Verifica que hayan quedado valores.
*  IF i_bsid[] IS INITIAL.
*    MESSAGE i368(00) WITH text-003.
*    STOP.
*  ENDIF.

  SORT i_bsid BY belnr blart.

  LOOP AT i_bsid.

    lv_tabix = sy-tabix.

    READ TABLE i_bseg
      WITH KEY bukrs = i_bsid-bukrs
               belnr = i_bsid-belnr
               gjahr = i_bsid-gjahr
               BINARY SEARCH.

    IF sy-subrc = 0.

      MOVE i_bseg-hkont TO i_bsid-hkont.
      MOVE i_bsid-zuonr TO i_bsid-vbeln2.
      MODIFY i_bsid
       TRANSPORTING hkont
                    vbeln2.

    ENDIF.

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA

    MOVE: i_bsid-zuonr TO i_grp_bsid-zuonr,
          i_bsid-dmbtr TO i_grp_bsid-dmbtr,
          i_bsid-kunnr TO i_grp_bsid-kunnr,
          i_bsid-gjahr TO i_grp_bsid-gjahr.

    IF i_bsid-shkzg = 'H'.

      i_grp_bsid-dmbtr = i_grp_bsid-dmbtr * -1.

      MOVE: i_bsid-belnr TO i_grp_docs-belnr,
            i_bsid-zuonr TO i_grp_docs-zuonr,
            i_bsid-blart TO i_grp_docs-blart.
      i_grp_docs-dmbtr = i_grp_bsid-dmbtr.
      APPEND i_grp_docs.

    ENDIF.

    COLLECT i_grp_bsid.
    CLEAR i_grp_bsid.

    IF i_bsid-blart = 'AB' AND
       i_bsid-shkzg = 'H'.

      MOVE-CORRESPONDING i_bsid TO i_bsid_ab.
      APPEND i_bsid_ab.

    ENDIF.

* END: EXCHNEO_F14 24.06.2010 E-RGARZA.

  ENDLOOP.

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA

  SORT i_grp_docs
    BY zuonr
       dmbtr.

  SELECT bukrs
         kunnr
         augbl
         gjahr
         belnr
         buzei
         budat
         blart
         dmbtr
         hkont
         vbeln
         kkber
         sgtxt
         shkzg
         zuonr
     INTO TABLE i_bsad
     FROM bsad
      FOR ALL ENTRIES IN i_bsid_ab
    WHERE bukrs = i_bsid_ab-bukrs
      AND kunnr = i_bsid_ab-kunnr
      AND augbl = i_bsid_ab-belnr.

  IF sy-subrc = 0.

    SORT i_bsad
      BY blart.

    LOOP AT i_bsad.

      IF i_bsad-blart NE 'DG' AND
         i_bsad-blart NE 'DZ'.

        DELETE i_bsad INDEX sy-tabix.

      ENDIF.

    ENDLOOP.

    SORT i_bsad
      BY bukrs
         belnr.

    SELECT bukrs
           belnr
           gjahr
           buzei
           dmbtr
           hkont
        INTO TABLE i_bseg2
        FROM bseg
        FOR ALL ENTRIES IN i_bsad
       WHERE bukrs = i_bsad-bukrs
         AND belnr = i_bsad-belnr
         AND bschl = '40'
         AND shkzg = 'S'.

    IF sy-subrc = 0.

      SORT i_bseg2
        BY bukrs
           belnr.
      LOOP AT i_bseg2.
        MOVE-CORRESPONDING i_bseg2 TO i_bseg_sum1.
        COLLECT i_bseg_sum1.
        CLEAR i_bseg_sum1.
      ENDLOOP.
    ENDIF.

    SORT i_bsad
      BY bukrs
         kunnr
         augbl
         blart.

  ENDIF.
* Elimina registros con saldo en contra
  DELETE i_grp_bsid WHERE dmbtr >= 0.

  SORT i_grp_bsid
    BY zuonr
       kunnr
       gjahr.

* borra de I_BSID los documentos con saldo en contra.
  LOOP AT i_bsid.

    lv_tabix = sy-tabix.

    READ TABLE i_grp_bsid
      WITH KEY zuonr = i_bsid-zuonr
               kunnr = i_bsid-kunnr
               gjahr = i_bsid-gjahr
    BINARY SEARCH.

    IF sy-subrc NE 0.

      DELETE i_bsid INDEX lv_tabix.

    ELSE.

      i_bsid-dmbtr = ABS( i_grp_bsid-dmbtr ).

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
      IF i_bsid-blart = 'AB'.

        READ TABLE i_bsad
          WITH KEY bukrs = i_bsid-bukrs
                   kunnr = i_bsid-kunnr
                   augbl = i_bsid-belnr
                   blart = 'DZ'
        BINARY SEARCH.

        IF sy-subrc = 0.

          READ TABLE i_bseg2
            WITH KEY bukrs = i_bsad-bukrs
                     belnr = i_bsad-belnr
            BINARY SEARCH.

          IF sy-subrc = 0.

            MOVE: i_bsad-blart TO i_bsid-blart,
                  i_bsad-belnr TO i_bsid-belnr,
                  i_bseg2-hkont TO i_bsid-hkont.

          ENDIF.

        ELSE.

          READ TABLE i_bsad
            WITH KEY bukrs = i_bsid-bukrs
                     kunnr = i_bsid-kunnr
                     augbl = i_bsid-belnr
                     blart = 'DG'
          BINARY SEARCH.

          IF sy-subrc = 0.

            READ TABLE i_bseg2
              WITH KEY bukrs = i_bsad-bukrs
                       belnr = i_bsad-belnr
              BINARY SEARCH.

            IF sy-subrc = 0.

              MOVE: i_bsad-blart TO i_bsid-blart,
                    i_bsad-belnr TO i_bsid-belnr,
                    i_bsad-vbeln TO i_bsid-vbeln.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.
* END: EXCHNEO_F14 24.06.2010 E-RGARZA

      MODIFY i_bsid
       INDEX lv_tabix
       TRANSPORTING dmbtr
                    blart
                    belnr
                    hkont
                    vbeln.

    ENDIF.

  ENDLOOP.

  SORT i_grp_docs
    BY zuonr
       dmbtr.

  SELECT bukrs
         belnr
         gjahr
         buzei
         dmbtr
         hkont
    INTO TABLE i_bseg3
    FROM bseg
    FOR ALL ENTRIES IN i_bsid
   WHERE bukrs = i_bsid-bukrs
     AND belnr = i_bsid-belnr
     AND bschl = '40'
     AND shkzg = 'S'.

  IF sy-subrc = 0.

    SORT i_bseg3
      BY bukrs
         belnr
         dmbtr.

    LOOP AT i_bseg3.
      MOVE-CORRESPONDING i_bseg3 TO i_bseg_sum2.
      COLLECT i_bseg_sum2.
      CLEAR i_bseg_sum2.
    ENDLOOP.

  ENDIF.

* END: EXCHNEO_F14 24.06.2010 E-RGARZA

  SELECT vbeln
   INTO TABLE i_vbrk
   FROM vbrk
    FOR ALL ENTRIES IN i_bsid
  WHERE vbeln = i_bsid-vbeln2.

  IF sy-subrc EQ 0.

    LOOP AT i_bsid.
      IF i_bsid-blart = c_anticipo. "DZ

        READ TABLE i_vbrk
         WITH KEY vbeln = i_bsid-vbeln2
         BINARY SEARCH.

        IF sy-subrc = 0.
          DELETE i_bsid .
          CONTINUE.
        ENDIF.
      ENDIF.

      IF i_bsid-blart = c_abono. "DG

        IF i_bsid-zuonr(10) NE i_bsid-vbeln.
*          DELETE i_bsid.
*          CONTINUE.
        ENDIF.

      ENDIF.
    ENDLOOP.

  ENDIF.

  SORT i_bsid
    BY belnr
       bukrs
       blart
       zuonr
       gjahr
       kunnr .

  DELETE ADJACENT DUPLICATES FROM i_bsid
                        COMPARING belnr
                                  bukrs
                                  blart
                                  zuonr
                                  gjahr
                                  kunnr.

* Lee la cabecera de los documentos encontrados.
  SELECT bukrs
         belnr
         gjahr
         usnam
     INTO TABLE i_bkpf
     FROM bkpf
     FOR ALL ENTRIES IN i_bsid
     WHERE bukrs = i_bsid-bukrs
       AND belnr = i_bsid-belnr
       AND gjahr = i_bsid-gjahr
       AND usnam IN s_user.

  IF sy-subrc <> 0.
    MESSAGE i368(00) WITH text-003.
    STOP.
  ELSE.
    SORT i_bkpf
      BY bukrs
         belnr
         gjahr.
  ENDIF.


* Vuelve a cargar la KNVV y KNVP
  SELECT kunnr
         pernr
  INTO TABLE i_knvp
  FROM knvp
  FOR ALL ENTRIES IN i_bsid
  WHERE kunnr = i_bsid-kunnr
    AND vkorg = i_bsid-bukrs
    AND parvw = c_asesor.

  IF sy-subrc = 0.
    SORT i_knvp
      BY kunnr.

    SELECT pernr
           vorna
           nach2
           nachn
      INTO TABLE i_pa0002
      FROM pa0002
      FOR ALL ENTRIES IN i_knvp
      WHERE pernr = i_knvp-pernr.

    IF sy-subrc = 0.
      SORT i_pa0002
        BY pernr.
    ENDIF.
  ENDIF.

  SELECT kunnr
         vkgrp
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
         vkbur
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
    INTO TABLE i_knvv
    FROM knvv
    FOR ALL ENTRIES IN i_bsid
   WHERE kunnr = i_bsid-kunnr
     AND vkgrp IN s_vkgrp
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
     AND vkbur IN s_vkbur.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

  IF sy-subrc = 0.
    SORT i_knvv
      BY kunnr.

* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
    SELECT vkbur
           bezei
      FROM tvkbt
      INTO TABLE i_tvkbt
      FOR ALL ENTRIES IN i_knvv
      WHERE spras EQ 'S'
        AND vkbur EQ i_knvv-vkbur.

    IF sy-subrc EQ 0.

      SORT i_tvkbt
        BY vkbur.

    ENDIF.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

    SELECT vkgrp
           bezei
      INTO TABLE i_tvgrt
      FROM tvgrt
      FOR ALL ENTRIES IN i_knvv
      WHERE vkgrp = i_knvv-vkgrp.

    IF sy-subrc = 0.
      SORT i_tvgrt
        BY vkgrp.
    ENDIF.
  ENDIF.

* Carga los nombres de los clientes.
  SELECT kunnr
         name1
    INTO TABLE i_kna1
    FROM kna1
    FOR ALL ENTRIES IN i_bsid
    WHERE kunnr = i_bsid-kunnr.

  IF sy-subrc = 0.
    SORT i_kna1
      BY kunnr.
  ENDIF.

  SELECT kkber
         kkbtx
    INTO TABLE i_t014t
    FROM t014t
    FOR ALL ENTRIES IN i_bsid
    WHERE kkber = i_bsid-kkber
      AND spras = sy-langu.

  IF sy-subrc = 0.
    SORT i_t014t
      BY kkber.
  ENDIF.

  "Obtener documnentos relacionados con zuonr.
  IF i_bsid IS NOT INITIAL.

    SELECT bukrs
             kunnr
             gjahr
             belnr
             buzei
             budat
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
             bldat
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
             blart
             dmbtr
             hkont
             vbeln
             kkber
             sgtxt
             shkzg
             zuonr
         INTO TABLE i_bsid2
         FROM bsid
          FOR ALL ENTRIES IN i_bsid
         WHERE zuonr = i_bsid-zuonr.


    IF sy-subrc NE 0.
      REFRESH i_bsid2.
    ENDIF.

  ENDIF.

ENDFORM.                    " F_CARGA_INFO
*&---------------------------------------------------------------------*
*&      Form  F_VALIDACIONES                                           *
*&---------------------------------------------------------------------*
*       Validaciones del asesor y del segmento                         *
*----------------------------------------------------------------------*
FORM f_validaciones .

* Los criterios de Asesor Comercial y segmnto están ligados al cliente
* por lo tanto serán llenados inicialmente para facilitar el acceso a
* BSID.

  REFRESH i_clientes.

* Primero validamos el Asesor Comercial.
  IF NOT s_pernr[] IS INITIAL.

    SELECT kunnr
           pernr
      INTO TABLE i_knvp
      FROM knvp
      WHERE kunnr IN s_kunnr
        AND pernr IN s_pernr
        AND vkorg IN s_bukrs "EXCHNEO_F14 28.06.2010 E-RGARZA
        AND parvw = c_asesor.

    IF sy-subrc = 0.
      SORT i_knvp
        BY kunnr.

      LOOP AT i_knvp.
        MOVE i_knvp-kunnr TO i_clientes-kunnr.
        APPEND i_clientes.
      ENDLOOP.
    ELSE.
      MESSAGE i368(00) WITH text-001.
      STOP.
    ENDIF.

  ENDIF.

  "INICIO MGVG
* Validar que cliente exista.
  IF NOT s_kunnr[] IS INITIAL AND
         i_clientes IS INITIAL.

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
    SELECT bukrs
           kunnr
      INTO TABLE i_knb1
      FROM knb1
     WHERE bukrs IN s_bukrs
       AND kunnr IN s_kunnr.

    IF sy-subrc NE 0.

      MESSAGE s368(00) WITH text-004 DISPLAY LIKE 'E'.
      STOP.

    ENDIF.
* END: EXCHNEO_F14 24.06.2010 E-RGARZA

    SELECT kunnr
      INTO TABLE i_clientes
      FROM kna1
     WHERE kunnr IN s_kunnr.

    IF sy-subrc NE 0.
      MESSAGE i368(00) WITH text-004.
      STOP.
    ENDIF.

  ENDIF.
  "FIN MGVG

* Ahora validamos el Segmnto.
  IF NOT s_vkgrp[] IS INITIAL.

    IF NOT i_clientes[] IS INITIAL.

      SELECT kunnr
             vkgrp
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
             vkbur
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
        INTO TABLE i_knvv
        FROM knvv
        FOR ALL ENTRIES IN i_clientes
       WHERE kunnr = i_clientes-kunnr
         AND vkgrp IN s_vkgrp
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
         AND vkbur IN s_vkbur.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

      IF sy-subrc = 0.
        SORT i_knvp
          BY kunnr.

* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
        SELECT vkbur
               bezei
          FROM tvkbt
          INTO TABLE i_tvkbt
          FOR ALL ENTRIES IN i_knvv
          WHERE spras EQ 'S'
            AND vkbur EQ i_knvv-vkbur.

        IF sy-subrc EQ 0.

          SORT i_tvkbt
            BY vkbur.

        ENDIF.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

        REFRESH i_clientes.
        LOOP AT i_knvv.
          MOVE i_knvv-kunnr TO i_clientes-kunnr.
          APPEND i_clientes.
        ENDLOOP.
      ELSE.
        MESSAGE i368(00) WITH text-002.
        STOP.
      ENDIF.
    ELSE.
      SELECT kunnr
             vkgrp
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
             vkbur
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
        INTO TABLE i_knvv
        FROM knvv
       WHERE kunnr IN s_kunnr
         AND vkgrp IN s_vkgrp
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
         AND vkbur IN s_vkbur.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

      IF sy-subrc = 0.
        SORT i_knvp
          BY kunnr.

* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
        SELECT vkbur
               bezei
          FROM tvkbt
          INTO TABLE i_tvkbt
          FOR ALL ENTRIES IN i_knvv
          WHERE spras EQ 'S'
            AND vkbur EQ i_knvv-vkbur.

        IF sy-subrc EQ 0.

          SORT i_tvkbt
            BY vkbur.

        ENDIF.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

        REFRESH i_clientes.

        LOOP AT i_knvv.
          MOVE i_knvv-kunnr TO i_clientes-kunnr.
          APPEND i_clientes.
        ENDLOOP.
      ELSE.
        MESSAGE i368(00) WITH text-002.
        STOP.
      ENDIF.

    ENDIF.

  ENDIF.

* Al terminar ya tenemos los clientes que aplican.


ENDFORM.                    " F_VALIDACIONES
*&---------------------------------------------------------------------*
*&      Form  F_GENERA_SALIDA                                          *
*&---------------------------------------------------------------------*
*       Genera la salida del report                                    *
*----------------------------------------------------------------------*
FORM f_genera_salida .

  REFRESH i_out.

  SORT i_t014t.
  SORT i_bkpf.
  SORT i_knvv.
  SORT i_knvp.


  LOOP AT i_bsid WHERE blart IN s_blart.

    READ TABLE i_bkpf
      WITH KEY bukrs = i_bsid-bukrs
               belnr = i_bsid-belnr
               gjahr = i_bsid-gjahr
               BINARY SEARCH.
    IF sy-subrc = 0.
      IF ( p_cred = 'X' AND
         ( i_bsid-hkont >= c_irango_cred AND
          i_bsid-hkont <= c_frango_cred ) ) OR
         ( p_cont = 'X' AND
         ( i_bsid-hkont >= c_irango_cont AND
           i_bsid-hkont <= c_frango_cont ) ).

*         La cuenta se queda.
      ELSE.
* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
        IF i_bsid-blart NE 'DG'.

*          DELETE i_bsid .
          CONTINUE.
        ELSE.

          IF p_ncred NE 'X'.

            CONTINUE.

          ENDIF.

        ENDIF.
* END: EXCHNEO_F14 24.06.2010 E-RGARZA
      ENDIF.
      MOVE-CORRESPONDING i_bsid TO i_out.
      MOVE i_bkpf-usnam TO i_out-usnam.

*       Si es DZ el documento se toma del BELNR
      IF i_bsid-blart = c_anticipo.
        MOVE i_bsid-belnr TO i_out-belnr.

      ELSEIF i_bsid-blart = c_abono.
        MOVE i_bsid-vbeln TO i_out-belnr.
      ELSE.
        CONTINUE.
      ENDIF.

      MOVE i_bsid-dmbtr TO i_out-abierto.

      MOVE i_bsid-dmbtr TO i_out-total.

*      carga de bseg el importa total del pago.
      READ TABLE i_bseg_sum1
        WITH KEY bukrs = i_bsid-bukrs
                 belnr = i_bsid-belnr
                 gjahr = i_bsid-gjahr
                 BINARY SEARCH.
      IF sy-subrc = 0.

        MOVE i_bseg_sum1-dmbtr TO i_out-total.

      ELSE.

        READ TABLE i_bseg_sum2
          WITH KEY bukrs = i_bsid-bukrs
                   belnr = i_bsid-belnr
                   gjahr = i_bsid-gjahr
                   BINARY SEARCH.

        IF sy-subrc = 0.

          MOVE i_bseg_sum2-dmbtr TO i_out-total.

        ENDIF.

      ENDIF.


*       Saca la descripción del VKGRP (Segmento).
      READ TABLE i_knvv
        WITH KEY kunnr = i_bsid-kunnr
        BINARY SEARCH.
      IF sy-subrc = 0.
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*        i_out-vkbur = i_knvv-vkbur.
        READ TABLE i_tvkbt
              INTO w_tvkbt
          WITH KEY vkbur = i_knvv-vkbur
          BINARY SEARCH.

        IF sy-subrc EQ 0.

          i_out-bezei2 = w_tvkbt-bezei.

        ENDIF.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
        READ TABLE i_tvgrt
          WITH KEY vkgrp = i_knvv-vkgrp
          BINARY SEARCH.
        IF sy-subrc = 0.
          MOVE i_tvgrt-bezei TO i_out-bezei.
        ENDIF.
      ENDIF.

*       Saca el nombre del asesor
      READ TABLE i_knvp
        WITH KEY kunnr = i_bsid-kunnr
        BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE i_knvp-pernr TO i_out-asesor.
        READ TABLE i_pa0002
          WITH KEY pernr = i_knvp-pernr
          BINARY SEARCH.
        IF sy-subrc = 0.
          CONCATENATE i_pa0002-vorna
                      i_pa0002-nach2
                      i_pa0002-nachn
                   INTO i_out-nombre
                   SEPARATED BY space.
        ENDIF.
      ENDIF.
*       Carga el nombre del cliente
      READ TABLE i_kna1
        WITH KEY kunnr = i_bsid-kunnr
        BINARY SEARCH.
      IF sy-subrc = 0.
        MOVE i_kna1-name1 TO i_out-name1.
      ENDIF.
*       Saca la denominación de la zona.
      READ TABLE i_t014t
        WITH KEY kkber = i_bsid-kkber
        BINARY SEARCH.
      IF sy-subrc = 0.
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*        MOVE i_t014t-kkbtx TO i_out-kkbtx.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
      ENDIF.
*     Valida que leyenda debe desplegar
      IF i_bsid-hkont >= c_irango_cred AND
         i_bsid-hkont <= c_frango_cred.
        MOVE text-t99 TO i_out-thkont.
      ENDIF.
      IF i_bsid-hkont >= c_irango_cont AND
         i_bsid-hkont <= c_frango_cont.
        MOVE text-t98 TO i_out-thkont.
      ENDIF.
* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA
      IF i_bsid-blart = 'DG'.
        MOVE text-t97 TO i_out-thkont.
      ENDIF.
* END: EXCHNEO_F14 24.06.2010 E-RGARZA
      APPEND i_out.
    ENDIF.
    CLEAR i_out.
  ENDLOOP.

  "inicio mgvg
*  LOOP AT i_out.
*
*    LOOP AT i_bsid2
*      WHERE zuonr = i_out-belnr
*        AND gjahr = i_out-gjahr
*        AND bukrs = i_out-bukrs.
*
*      IF  ( i_bsid2-blart = c_abono OR
*            i_bsid2-blart = c_anticipo ).
*        IF i_bsid2-shkzg = c_s.
*          i_out-total = i_out-total - i_bsid2-dmbtr.
*        ELSEIF i_bsid2-shkzg = c_h.
*          i_out-total = i_out-total + i_bsid2-dmbtr.
*        ENDIF.
*      ENDIF.
*
*      IF i_bsid2-shkzg = c_s.
*        i_out-abierto = i_out-abierto - i_bsid2-dmbtr.
*      ELSEIF i_bsid2-shkzg = c_h.
*        i_out-abierto = i_out-abierto + i_bsid2-dmbtr.
*      ENDIF.
*
*      MODIFY TABLE i_out TRANSPORTING abierto total.
*
*    ENDLOOP.
*
*    CLEAR: i_out-abierto,
*           i_out-total.
*
*  ENDLOOP.
  "fin mgvg

ENDFORM.                    " F_GENERA_SALIDA
*&---------------------------------------------------------------------*
*&      Form  F_FILLS_CATALOG
*&---------------------------------------------------------------------*
*       Genera el catálogo de campos
*----------------------------------------------------------------------*
FORM f_fills_catalog .


  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = sy-repid
      i_internal_tabname     = 'I_OUT'
      i_inclname             = 'ZGCCRE_AR01_SALDOS_FAVOR_A'
    CHANGING
      ct_fieldcat            = i_fieldcat
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 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.

ENDFORM.                    " F_FILLS_CATALOG
*&---------------------------------------------------------------------*
*&      Form  F_FIELDCAT                                               *
*&---------------------------------------------------------------------*
*       Llenado del catálogo de campos                                 *
*----------------------------------------------------------------------*
FORM f_fieldcat .



*& Structure
  DATA  lw_fieldcat TYPE slis_fieldcat_alv.


  lw_fieldcat-seltext_s = text-t01.
  lw_fieldcat-seltext_l = text-t01.
  lw_fieldcat-seltext_m = text-t01.
  lw_fieldcat-reptext_ddic = text-t01.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'NOMBRE'.


  lw_fieldcat-seltext_s = text-t02.
  lw_fieldcat-seltext_l = text-t02.
  lw_fieldcat-seltext_m = text-t02.
  lw_fieldcat-reptext_ddic = text-t02.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'BEZEI'.

  lw_fieldcat-seltext_s = text-t03.
  lw_fieldcat-seltext_l = text-t03.
  lw_fieldcat-seltext_m = text-t03.
  lw_fieldcat-reptext_ddic = text-t03.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'ASESOR'.

* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
  lw_fieldcat-seltext_s = text-t28.
  lw_fieldcat-seltext_l = text-t28.
  lw_fieldcat-seltext_m = text-t28.
  lw_fieldcat-reptext_ddic = text-t28.
*  lw_fieldcat-seltext_s = text-t04.
*  lw_fieldcat-seltext_l = text-t04.
*  lw_fieldcat-seltext_m = text-t04.
*  lw_fieldcat-reptext_ddic = text-t04.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'KKBTX'.

  lw_fieldcat-seltext_s = text-t05.
  lw_fieldcat-seltext_l = text-t05.
  lw_fieldcat-seltext_m = text-t05.
  lw_fieldcat-reptext_ddic = text-t05.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'HKONT'.

  lw_fieldcat-seltext_s = text-t26.
  lw_fieldcat-seltext_l = text-t26.
  lw_fieldcat-seltext_m = text-t26.
  lw_fieldcat-reptext_ddic = text-t26.

* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'BLDAT'.

  lw_fieldcat-seltext_s = text-t04.
  lw_fieldcat-seltext_l = text-t04.
  lw_fieldcat-seltext_m = text-t04.
  lw_fieldcat-reptext_ddic = text-t04.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'BEZEI2'.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

  lw_fieldcat-seltext_s = text-t06.
  lw_fieldcat-seltext_l = text-t06.
  lw_fieldcat-seltext_m = text-t06.
  lw_fieldcat-reptext_ddic = text-t06.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'TOTAL'.

  lw_fieldcat-seltext_s = text-t07.
  lw_fieldcat-seltext_l = text-t07.
  lw_fieldcat-seltext_m = text-t07.
  lw_fieldcat-reptext_ddic = text-t07.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'ABIERTO'.

* BEGIN: EXCHNEO_F14 24.06.2010 E-RGARZA

  lw_fieldcat-seltext_s = text-t16.
  lw_fieldcat-seltext_l = text-t16.
  lw_fieldcat-seltext_m = text-t16.
  lw_fieldcat-reptext_ddic = text-t16.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'BUKRS'.

  lw_fieldcat-seltext_s = text-t17.
  lw_fieldcat-seltext_l = text-t17.
  lw_fieldcat-seltext_m = text-t17.
  lw_fieldcat-reptext_ddic = text-t17.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'BELNR'.

  lw_fieldcat-seltext_s = text-t18.
  lw_fieldcat-seltext_l = text-t18.
  lw_fieldcat-seltext_m = text-t18.
  lw_fieldcat-reptext_ddic = text-t18.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'BLART'.

  lw_fieldcat-seltext_s = text-t19.
  lw_fieldcat-seltext_l = text-t19.
  lw_fieldcat-seltext_m = text-t19.
  lw_fieldcat-reptext_ddic = text-t19.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'KUNNR'.

  lw_fieldcat-seltext_s = text-t20.
  lw_fieldcat-seltext_l = text-t20.
  lw_fieldcat-seltext_m = text-t20.
  lw_fieldcat-reptext_ddic = text-t20.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'NAME1'.

  lw_fieldcat-seltext_s = text-t21.
  lw_fieldcat-seltext_l = text-t21.
  lw_fieldcat-seltext_m = text-t21.
  lw_fieldcat-reptext_ddic = text-t21.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'BUDAT'.

  lw_fieldcat-seltext_s = text-t22.
  lw_fieldcat-seltext_l = text-t22.
  lw_fieldcat-seltext_m = text-t22.
  lw_fieldcat-reptext_ddic = text-t22.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'GJAHR'.

  lw_fieldcat-seltext_s = text-t23.
  lw_fieldcat-seltext_l = text-t23.
  lw_fieldcat-seltext_m = text-t23.
  lw_fieldcat-reptext_ddic = text-t23.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'THKONT'.

  lw_fieldcat-seltext_s = text-t24.
  lw_fieldcat-seltext_l = text-t24.
  lw_fieldcat-seltext_m = text-t24.
  lw_fieldcat-reptext_ddic = text-t24.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'USNAM'.

  lw_fieldcat-seltext_s = text-t25.
  lw_fieldcat-seltext_l = text-t25.
  lw_fieldcat-seltext_m = text-t25.
  lw_fieldcat-reptext_ddic = text-t25.

  MODIFY i_fieldcat
    FROM lw_fieldcat
TRANSPORTING ddictxt
         seltext_s
         seltext_l
         seltext_m
         reptext_ddic
   WHERE fieldname = 'SGTXT'.

* END: EXCHNEO_F14 24.06.2010 E-RGARZA
  SORT i_fieldcat
    BY col_pos.

ENDFORM.                    " F_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  F_BUILD_EVENTS
*&---------------------------------------------------------------------*
*       Eventos del ALV                                                *
*----------------------------------------------------------------------*
FORM f_build_events .
  DATA: lw_event TYPE slis_alv_event.

  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = i_events[]
    EXCEPTIONS
      list_type_wrong = 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.

  SORT i_events
    BY name.

** ALV_GRID Function Module
*  READ TABLE i_events
*        INTO lw_event
*    WITH KEY name =  slis_ev_end_of_list
*      BINARY SEARCH.
*
*  IF sy-subrc = 0.
*
*    MOVE 'F_END_OF_LIST' TO lw_event-form.
*
*    MODIFY i_events
*      FROM lw_event
*     INDEX sy-tabix.
*
*  ENDIF.

  IF sy-batch NE 'X'.

    READ TABLE i_events
      INTO lw_event
      WITH KEY name =  slis_ev_top_of_list
        BINARY SEARCH.

    IF sy-subrc = 0.

      MOVE 'F_TOP_OF_LIST' TO lw_event-form.
      MODIFY  i_events
        FROM  lw_event
        INDEX sy-tabix.

    ENDIF.

  ENDIF.


ENDFORM.                    " F_BUILD_EVENTS
*&---------------------------------------------------------------------*
*&      Form  F_SORT                                                   *
*&---------------------------------------------------------------------*
*       Ordenamiento del ALV                                           *
*----------------------------------------------------------------------*
FORM f_sort .

  w_sort-spos      = 1.
  w_sort-fieldname = 'BELNR'.
  w_sort-up        = 'X'.
  w_sort-subtot    = 'X'.
  APPEND w_sort TO i_sort.

ENDFORM.                    " F_SORT
*&---------------------------------------------------------------------*
*&      Form  F_SHOWS_REPORT                                           *
*&---------------------------------------------------------------------*
*       Despliega el reporte                                           *
*----------------------------------------------------------------------*
FORM f_shows_report .

* Local data
  DATA: lv_repid    TYPE sy-repid,
        lw_layout   TYPE slis_layout_alv.

*  Assign the name of program
  lv_repid  =  sy-repid.

  lw_layout-no_colhead           = space.
  lw_layout-zebra                = 'X'.
  lw_layout-no_vline             = space.
  lw_layout-no_subtotals         = 'X'.
  lw_layout-totals_before_items  = space.
  lw_layout-colwidth_optimize    = 'X'.
  lw_layout-detail_popup         = 'X'.


  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program          = lv_repid
      i_callback_html_top_of_page = 'F_HTML_TOP_OF_PAGE'
      i_grid_title                = v_title_alv
      it_events                   = i_events[]
      it_fieldcat                 = i_fieldcat
      is_layout                   = lw_layout
      i_default                   = 'X'
      it_sort                     = i_sort[]
      i_save                      = 'A'
    TABLES
      t_outtab                    = i_out
    EXCEPTIONS
      program_error               = 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.


ENDFORM.                    " F_SHOWS_REPORT

*&---------------------------------------------------------------------*
*&      Form  F_HTML_TOP_OF_PAGE
*&---------------------------------------------------------------------*
*       Muestra el encabezado del ALV.
*----------------------------------------------------------------------*
*  -->  document
*----------------------------------------------------------------------*
FORM f_html_top_of_page USING document TYPE REF TO cl_dd_document.
  DATA: lv_text TYPE sdydo_text_element,
        lv_fecha(10) TYPE c,
        lv_saldo(30) TYPE c,
        lv_ta   TYPE REF TO cl_dd_table_element,
        lv_col1 TYPE REF TO cl_dd_area,
        lv_col2 TYPE REF TO cl_dd_area,
        lv_col3 TYPE REF TO cl_dd_area.

  CALL METHOD document->add_table
    EXPORTING
      no_of_columns = 3
      width         = '100%'
      border        = '0'
    IMPORTING
      table         = lv_ta.


  CALL METHOD lv_ta->add_column
    EXPORTING
      width  = '30%'
    IMPORTING
      column = lv_col1.

  CALL METHOD lv_ta->add_column
    EXPORTING
      width  = '40%'
    IMPORTING
      column = lv_col2.

  CALL METHOD lv_ta->add_column
    EXPORTING
      width  = '30%'
    IMPORTING
      column = lv_col3.

*  CALL METHOD lv_ta->add_gap
*    EXPORTING
*      width = '100%'.
  lv_text =  text-t15.

  CALL METHOD lv_col2->add_gap
    EXPORTING
      width = 25.

  CALL METHOD lv_col2->add_text
    EXPORTING
      text         = lv_text "Reporte
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'STRONG'.

  CLEAR lv_text.

  CALL METHOD lv_ta->new_row.

  lv_text =  text-t10.

  CALL METHOD lv_col2->add_gap
    EXPORTING
      width = 30.

  CALL METHOD lv_col2->add_text
    EXPORTING
      text         = lv_text "Reporte
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'STRONG'.

  CLEAR lv_text.

*  CALL METHOD document->new_line.
*
*  CALL METHOD document->add_gap
*    EXPORTING
*      width = 80.
  CALL METHOD lv_ta->new_row.

  CONCATENATE  sy-datlo+6(2) '/'
               sy-datlo+4(2) '/'
               sy-datlo(4)
         INTO lv_fecha.

  CONCATENATE text-t11
              lv_fecha
         INTO lv_text
         SEPARATED BY space.

*  CALL METHOD document->add_text
*    EXPORTING
*      text         = lv_text
*      sap_emphasis = 'Strong'.

  CALL METHOD lv_col2->add_gap
    EXPORTING
      width = 30.

  CALL METHOD lv_col2->add_text
    EXPORTING
      text         = lv_text
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'STRONG'.

* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
  IF NOT s_bldat[] IS INITIAL.
*  IF NOT s_budat[] IS INITIAL.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

    CLEAR lv_text.

*    CALL METHOD document->new_line.
*
*    CALL METHOD document->add_gap
*      EXPORTING
*        width = 80.
    CALL METHOD lv_ta->new_row.

    CALL METHOD lv_col2->add_gap
      EXPORTING
        width = 25.

* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
    CONCATENATE  s_bldat-low+6(2) '/'
                 s_bldat-low+4(2) '/'
                 s_bldat-low(4)
*    CONCATENATE  s_budat-low+6(2) '/'
*                 s_budat-low+4(2) '/'
*                 s_budat-low(4)
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
           INTO lv_fecha.

    CONCATENATE text-t12
                lv_fecha
           INTO lv_text
           SEPARATED BY space.

* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*    CONCATENATE  s_budat-high+6(2) '/'
*                 s_budat-high+4(2) '/'
*                 s_budat-high(4)
    CONCATENATE  s_bldat-high+6(2) '/'
                 s_bldat-high+4(2) '/'
                 s_bldat-high(4)
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
           INTO lv_fecha.

    CONCATENATE lv_text
                text-t13
                lv_fecha
           INTO lv_text
           SEPARATED BY space.

    CALL METHOD lv_col2->add_text
      EXPORTING
        text         = lv_text
        sap_fontsize = 'MEDIUM'
        sap_emphasis = 'STRONG'.

  ELSE.
    CLEAR lv_text.

  ENDIF.


*  CALL METHOD document->new_line.
*
*  CALL METHOD document->add_gap
*    EXPORTING
*      width = 150.
*
*  CALL METHOD document->add_text
*    EXPORTING
*      text         = lv_text
*      sap_emphasis = 'HEADING'.

  CLEAR lv_text.

*  CALL METHOD document->add_gap
*    EXPORTING
*      width = 150.
  CALL METHOD lv_col3->add_gap
    EXPORTING
      width = 30.

  CONCATENATE  sy-timlo+0(2) ':'
               sy-timlo+2(2) ':'
               sy-timlo+4(2)
         INTO lv_fecha.

  CONCATENATE text-t14
              lv_fecha
         INTO lv_text
         SEPARATED BY space.

*  CALL METHOD document->add_text
*    EXPORTING
*      text         = lv_text
*      sap_emphasis = 'Strong'.

  CALL METHOD lv_col3->add_text
    EXPORTING
      text         = lv_text
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'STRONG'.

ENDFORM.                    "f_html_top_of_page

*&---------------------------------------------------------------------*
*&      Form  F_AUTHORITY_CHECK                                        *
*&---------------------------------------------------------------------*
*       Valida la autorización a la sociedad                           *
*----------------------------------------------------------------------*
FORM f_authority_check .

* Obtenemos todos las sociedades solicitadas en el select-options.
  SELECT bukrs
    FROM t001
    INTO TABLE i_t001
    WHERE bukrs IN s_bukrs.

* Si encontramos datos.
  IF sy-subrc = 0.

* Barremos esa tabla de datos, y le aplicamos el authority check.
    LOOP AT i_t001.

      MOVE sy-tabix TO v_apunta.

      AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
        ID 'BUKRS' FIELD i_t001-bukrs
        ID 'ACTVT' FIELD '03'.

* Si el usuario no tiene permisos para el objeto de datos, se borra ese
* objeto del select-options.
      IF sy-subrc <> 0.
        DELETE i_t001 INDEX v_apunta.
      ENDIF.
    ENDLOOP.

    IF i_t001[] IS INITIAL.
      MESSAGE i368(00) WITH text-m04.    "  'El usuario no tiene permiso para acceder
      "  a estos datos.'
      STOP.
    ELSE.
*     Vacía en s_bukrs las sociedades a las que tiene permiso.
      REFRESH s_bukrs.
      LOOP AT i_t001.
*          Los valores de I y EQ no son hardcode ya que no son datos transaccionales.
        MOVE: i_t001-bukrs TO s_bukrs-low,
              'I' TO s_bukrs-sign,
              'EQ' TO s_bukrs-option.
        APPEND s_bukrs.
      ENDLOOP.
    ENDIF.

  ENDIF.

ENDFORM.                    "F_AUTHORITY_CHECK
* BEGIN: EXCHNEO_F14 28.06.2010 E-RGARZA
*&---------------------------------------------------------------------*
*&      Form  F_SELECT_PERNR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_select_pernr .
  REFRESH: i_match,
           i_knvp_sel,
           i_pa0001,
           r_kunnr,
           r_bukrs.

  CLEAR: r_bukrs,
         r_kunnr.

  DATA: lw_dynpread TYPE dynpread.
  DATA: li_dynpread TYPE STANDARD TABLE OF dynpread.


  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      request              = 'A'
      determine_loop_index = 'X'
    TABLES
      dynpfields           = li_dynpread
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield  = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription  = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.

  IF sy-subrc = 0.

    IF s_bukrs[] IS INITIAL.

      READ TABLE li_dynpread
            INTO lw_dynpread
        WITH KEY fieldname = 'S_BUKRS-LOW'.

      IF sy-subrc = 0.

        IF NOT lw_dynpread-fieldvalue IS INITIAL.

          MOVE: 'I' TO r_bukrs-sign,
                'EQ' TO r_bukrs-option,
                lw_dynpread-fieldvalue TO r_bukrs-low.

        ENDIF.

      ENDIF.

      READ TABLE li_dynpread
            INTO lw_dynpread
        WITH KEY fieldname = 'S_BUKRS-HIGH'.

      IF sy-subrc = 0.

        IF lw_dynpread-fieldvalue IS NOT INITIAL.
          MOVE: 'I' TO r_bukrs-sign,
                'BT' TO r_bukrs-option,
                lw_dynpread-fieldvalue TO r_bukrs-high.
        ENDIF.

      ENDIF.

      IF NOT r_bukrs IS INITIAL.
        APPEND r_bukrs.
      ENDIF.

    ELSE.

      LOOP AT s_bukrs.

        MOVE-CORRESPONDING s_bukrs TO r_bukrs.
        APPEND r_bukrs.

      ENDLOOP.

    ENDIF.

    IF s_kunnr[] IS INITIAL.

      READ TABLE li_dynpread
            INTO lw_dynpread
        WITH KEY fieldname = 'S_KUNNR-LOW'.

      IF sy-subrc = 0.

        IF NOT lw_dynpread-fieldvalue IS INITIAL.

          MOVE: 'I' TO r_kunnr-sign,
                'EQ' TO r_kunnr-option,
                lw_dynpread-fieldvalue TO r_kunnr-low.

        ENDIF.

      ENDIF.

      READ TABLE li_dynpread
            INTO lw_dynpread
        WITH KEY fieldname = 'S_KUNNR-HIGH'.

      IF sy-subrc = 0.

        IF lw_dynpread-fieldvalue IS NOT INITIAL.
          MOVE: 'I' TO r_kunnr-sign,
                'BT' TO r_kunnr-option,
                lw_dynpread-fieldvalue TO r_kunnr-high.
        ENDIF.
      ENDIF.

      IF NOT r_kunnr IS INITIAL.

        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            input  = r_kunnr-low
          IMPORTING
            output = r_kunnr-low.

        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            input  = r_kunnr-high
          IMPORTING
            output = r_kunnr-high.

        APPEND r_kunnr.

      ENDIF.
    ELSE.

      LOOP AT s_kunnr.

        MOVE-CORRESPONDING s_kunnr TO r_kunnr.
        APPEND r_kunnr.

      ENDLOOP.

    ENDIF.

  ENDIF.

  SELECT pernr
    INTO TABLE i_knvp_sel
    FROM knvp
   WHERE parvw = 'ZE'
     AND vkorg IN r_bukrs
     AND kunnr IN r_kunnr.

  IF sy-subrc = 0.

    SORT i_knvp_sel
      BY pernr.

    DELETE ADJACENT DUPLICATES FROM i_knvp_sel.

    SELECT pernr
           ename
      INTO TABLE i_pa0001
      FROM pa0001
       FOR ALL ENTRIES IN i_knvp_sel
     WHERE pernr = i_knvp_sel-pernr.

    IF sy-subrc = 0.

      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
        EXPORTING
          retfield        = 'PERNR'
          window_title    = text-020
          value_org       = 'S'
        TABLES
          value_tab       = i_pa0001
          return_tab      = i_match
        EXCEPTIONS
          parameter_error = 1
          no_values_found = 2
          OTHERS          = 3.

      IF sy-subrc EQ 0.

        READ TABLE i_match INDEX 1.

      ENDIF.

    ENDIF.

  ENDIF.
ENDFORM.                    " F_SELECT_PERNR
*&---------------------------------------------------------------------*
*&      Form  F_VALIDA_BLART
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_valida_blart .
  LOOP AT s_blart.

    IF NOT s_blart-high IS INITIAL.

      IF s_blart-high NE c_abono AND
         s_blart-high NE c_anticipo.

        DELETE s_blart INDEX sy-tabix.
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*        MESSAGE: e208(00) WITH text-006.
        MESSAGE text-006
           TYPE 'S'
           DISPLAY LIKE 'E'.

        LEAVE LIST-PROCESSING.
        STOP.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

      ENDIF.

    ENDIF.

    IF NOT s_blart-low IS INITIAL.

      IF s_blart-low NE c_abono AND
         s_blart-low NE c_anticipo.

        DELETE s_blart INDEX sy-tabix.
* BEGIN AR01 Jose Moreno EXCHNEO_F09 06.07.2010.
*        MESSAGE: e208(00) WITH text-006.
        MESSAGE text-006
           TYPE 'S'
           DISPLAY LIKE 'E'.

        LEAVE LIST-PROCESSING.
        STOP.
* END AR01 Jose Moreno EXCHNEO_F09 06.07.2010.

      ENDIF.

    ENDIF.

  ENDLOOP.
ENDFORM.                    " F_VALIDA_BLART
* END: EXCHNEO_F14 28.06.2010 E-RGARZA

Ejemplo de ALV OO

2010-07-21T14:00:00.000-07:00

Es es un ejemplo de un ALV OO que implementa los siguientes eventos.
*TOP_OF_PAGE "Cabecera
*DATA_CHANGED "Cuando es cambiado un campo editable
*TOOLBAR "Agrega botones al alv
*END_OF_LIST "Pie de página
*USER_COMMAND "Codigo Interno
*HOTSPOT_CLICK "Click a dato de un campo
*ONF4 "Ayuda en un campo del ALV

Programa Principal


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa             : ZPRIMERPROGRAMA                               *
* Descripción          : Ejemplo de creación de un ALV OO con el manejo*
*                        de los principales eventos.                   *
* Desarrollador        : José Ángel Moreno Nieblas    MZAVALA          *
* Fecha Creación       : 05.06.2010                                    *
*----------------------------------------------------------------------*
REPORT  zprimerprograma.

*----------------------------------------------------------------------*
*             D E C L A R A C I O N  D E  I N C L U D E S              *
*----------------------------------------------------------------------*
INCLUDE: zprimerprograma_a, "Declaraciones Globales.
         zprimerprograma_b, "Sub-rutinas.
         zprimerprograma_o, "PBO
         zprimerprograma_i. "PAI

*----------------------------------------------------------------------*
*           E V E N T O  I N I T I A L I Z A T I O N                   *
*----------------------------------------------------------------------*
INITIALIZATION.
* Para limpiar los parámetros de selección.
  PERFORM f_limpiar_parametros.
  PERFORM f_inicializar_variante. "Inicializa la variable

*----------------------------------------------------------------------*
*           E V E N T O  S E L E C C T I O N - S C R E E N             *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_layout.
  PERFORM f_obtener_variante. "Rutina que obtiene una variante default

AT SELECTION-SCREEN.
  PERFORM f_cargar_variante. "Rutina que obtiene una variante

*----------------------------------------------------------------------*
*         E V E N T O  S T A R T - O F - S E L E C T I O N             *
*----------------------------------------------------------------------*
START-OF-SELECTION.
* Para inicializar los objetos necesarios.
  PERFORM f_crear_alv_oo.

* Llamado a la pantalla 100.
  CALL SCREEN 0100.

Include de Declaraciones


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa             : ZPRIMERPROGRAMA_A                             *
* Descripción          : Declarciones globales necesarias para el      *
*                        Ejemplo de creación de un ALV OO con el manejo*
*                        de los principales eventos.                   *
* Desarrollador        : José Ángel Moreno Nieblas    MZAVALA          *
* Fecha Creación       : 05.06.2010                                    *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
*        T A B L A S                                                   *
*----------------------------------------------------------------------*
TABLES: lfa1.

*----------------------------------------------------------------------*
*        T I P O S                                                     *
*----------------------------------------------------------------------*
TYPES: BEGIN OF ty_lfa1,
  lifnr        TYPE lfa1-lifnr,
  name1        TYPE lfa1-name1,
  name2        TYPE lfa1-name2,
  j_sc_capital TYPE lfa1-j_sc_capital.
TYPES: END OF ty_lfa1.

TYPES: BEGIN OF ty_lfb1,
  lifnr TYPE lfb1-lifnr,
  bukrs TYPE lfb1-bukrs,
  webtr TYPE lfb1-webtr.
TYPES: END OF ty_lfb1.

TYPES: BEGIN OF ty_t001,
  bukrs TYPE t001-bukrs,
  butxt TYPE t001-butxt.
TYPES: END OF ty_t001.

TYPES: BEGIN OF ty_lfm1,
  lifnr TYPE lfm1-lifnr,
  ekorg TYPE lfm1-ekorg.
TYPES: END OF ty_lfm1.

TYPES: BEGIN OF ty_t024e,
  ekorg TYPE t024e-ekorg,
  ekotx TYPE t024e-ekotx.
TYPES: END OF ty_t024e.

*----------------------------------------------------------------------*
*        E S T R U C T U R A S                                         *
*----------------------------------------------------------------------*
DATA: w_lfa1     TYPE ty_lfa1,
      w_lfb1     TYPE ty_lfb1,
      w_t001     TYPE ty_t001,
      w_lfm1     TYPE ty_lfm1,
      w_salida   TYPE zes_alv_oo,
      w_fdcat    TYPE lvc_s_fcat,
      w_layout   TYPE lvc_s_layo,
      w_sort     TYPE lvc_s_sort,
      w_variant  TYPE disvariant,
      w_xvariant TYPE disvariant,
      w_t024e    TYPE ty_t024e.

*----------------------------------------------------------------------*
*        T A B L A S  I N T E R N N A S                                *
*----------------------------------------------------------------------*
DATA: i_lfa1   TYPE STANDARD TABLE OF ty_lfa1,
      i_lfb1   TYPE STANDARD TABLE OF ty_lfb1,
      i_t001   TYPE STANDARD TABLE OF ty_t001,
      i_lfm1   TYPE STANDARD TABLE OF ty_lfm1,
      i_salida TYPE STANDARD TABLE OF zes_alv_oo,
      i_fdcat  TYPE lvc_t_fcat,
      i_sort   TYPE lvc_t_sort,
      i_t024e  TYPE STANDARD TABLE OF ty_t024e.

*----------------------------------------------------------------------*
*       V A R I A B L E S                                              *
*----------------------------------------------------------------------*
DATA: v_ucomm100      TYPE sy-ucomm,
      v_ucomm200      TYPE sy-ucomm,
      v_block100(100) TYPE c VALUE 'Selection Parameters'.

*----------------------------------------------------------------------*
*       C L A S E S                                                    *
*----------------------------------------------------------------------*
CLASS lcl_co_application DEFINITION DEFERRED.
DATA: cl_application TYPE REF TO lcl_co_application.

*----------------------------------------------------------------------*
*       CLASS lcl_co_application DEFINITION                            *
*----------------------------------------------------------------------*
*   Clase mejorada de objetos para generar el ALV OO.                  *
*----------------------------------------------------------------------*
CLASS lcl_co_application DEFINITION.

  PUBLIC SECTION.
    METHODS:

*   Cuando en dato en cambiado en el ALV.
    handle_data_changed
    FOR EVENT data_changed
           OF cl_gui_alv_grid
    IMPORTING er_data_changed
              e_onf4
              e_onf4_before
              e_onf4_after
              e_ucomm,

*   Cuando un dato contiene el hotspot habilitado.
    handle_hotspot_click
    FOR EVENT hotspot_click
           OF cl_gui_alv_grid
    IMPORTING e_row_id
              e_column_id
              es_row_no,

*   Para crear la cabecera del ALV OO.
    handle_top_of_page
    FOR EVENT top_of_page
           OF cl_gui_alv_grid
    IMPORTING e_dyndoc_id
              table_index,

*   Para crear el pie de página del ALV OO.
    handle_end_of_list
    FOR EVENT end_of_list
           OF cl_gui_alv_grid
    IMPORTING e_dyndoc_id,

*   Para poner texto en los subtotales.
    handle_subtotal_text
    FOR EVENT subtotal_text
           OF cl_gui_alv_grid
    IMPORTING es_subtottxt_info
              ep_subtot_line
              e_event_data,

*   Para crear una ayuda sobre un campo del ALV OO.
    handle_onf4
    FOR EVENT onf4
           OF cl_gui_alv_grid
    IMPORTING e_fieldname
              e_fieldvalue
              es_row_no
              er_event_data
              et_bad_cells
              e_display,

*   Para agregar un botón a la barra del ALV OO.
    handle_toolbar
    FOR EVENT toolbar
           OF cl_gui_alv_grid
    IMPORTING e_object
              e_interactive,

*   Para programar el botón nuevo agregado al ALV OO.
    handle_user_command
    FOR EVENT user_command
          of cl_gui_alv_grid
    IMPORTING e_ucomm.

ENDCLASS. "cl_application DEFINITION
*----------------------------------------------------------------------*
*       O B J E T O S                                                  *
*----------------------------------------------------------------------*
DATA: o_container   TYPE REF TO cl_gui_custom_container,
      o_html_cntrl  TYPE REF TO cl_gui_html_viewer,
      o_html_cntrl2 TYPE REF TO cl_gui_html_viewer,
      o_dyndoc_id   TYPE REF TO cl_dd_document,
      o_dyndoc_id2  TYPE REF TO cl_dd_document,
      o_parent_top  TYPE REF TO cl_gui_container,
      o_parent_end  TYPE REF TO cl_gui_container,
      o_parent_grid TYPE REF TO cl_gui_container,
      o_alv_barmanager TYPE REF TO cl_alv_grid_toolbar_manager,
      o_splitter    TYPE REF TO cl_gui_splitter_container,
      o_grid        TYPE REF TO cl_gui_alv_grid.

*----------------------------------------------------------------------*
*       S E L E C T - O P T I O N S  A N D  P A R A M E T R O S        *
*----------------------------------------------------------------------*
SELECTION-SCREEN: BEGIN OF SCREEN 0001 AS SUBSCREEN.

SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr OBLIGATORY.
PARAMETERS: p_layout TYPE disvariant-variant.

SELECTION-SCREEN: END OF SCREEN 0001.

Include de Rutinas


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa             : ZPRIMERPROGRAMA_B                             *
* Descripción          : Declarción de las rutinas necesarias para el  *
*                        Ejemplo de creación de un ALV OO con el manejo*
*                        de los principales eventos.                   *
* Desarrollador        : José Ángel Moreno Nieblas    MZAVALA          *
* Fecha Creación       : 05.06.2010                                    *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_DATOS                                          *
*&---------------------------------------------------------------------*
*       Para obtener los datos necesarios para generar el reporte.     *
*----------------------------------------------------------------------*
FORM f_obtener_datos .

  SELECT lifnr
         name1
         name2
         j_sc_capital
    FROM lfa1
    INTO TABLE i_lfa1
    WHERE lifnr IN s_lifnr.

  IF sy-subrc EQ 0.

    SORT i_lfa1
      BY lifnr.

    SELECT lifnr
           bukrs
           webtr
      FROM lfb1
      INTO TABLE i_lfb1
      FOR ALL ENTRIES IN i_lfa1
      WHERE lifnr EQ i_lfa1-lifnr.

    IF sy-subrc EQ 0.

      SORT i_lfb1
        BY lifnr.

      SELECT bukrs
             butxt
        FROM t001
        INTO TABLE i_t001
        FOR ALL ENTRIES IN i_lfb1
        WHERE bukrs EQ i_lfb1-bukrs.

      IF sy-subrc EQ 0.

        SORT i_t001
          BY bukrs.

      ENDIF.

    ENDIF.

    SELECT lifnr
           ekorg
      FROM lfm1
      INTO TABLE i_lfm1
      FOR ALL ENTRIES IN i_lfa1
      WHERE lifnr EQ i_lfa1-lifnr.

    IF sy-subrc EQ 0.

      SORT i_lfm1
        BY lifnr.

      SELECT ekorg
             ekotx
        FROM t024e
        INTO TABLE i_t024e
        FOR ALL ENTRIES IN i_lfm1
        WHERE ekorg EQ i_lfm1-ekorg.

      IF sy-subrc EQ 0.

        SORT i_t024e
          BY ekorg.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.                    " F_OBTENER_DATOS
*&---------------------------------------------------------------------*
*&      Form  F_ARMAR_SALIDA                                           *
*&---------------------------------------------------------------------*
*       Rutina para crear la tabla de salida del reporte.              *
*----------------------------------------------------------------------*
FORM f_armar_salida .

* Declaraciones de varianles locales
  DATA: lv_name(71) TYPE c,
        lv_indice   TYPE sy-tabix,
        lv_lines    TYPE i.

  REFRESH i_salida.

  CLEAR w_salida.

* Se recorre la tabla general para llenar la tabla principal de
* salida.
  LOOP AT i_lfa1
     INTO w_lfa1.

*   Unir dos campos en una variable.
    CONCATENATE w_lfa1-name1
                w_lfa1-name2
           INTO lv_name
       SEPARATED BY space.

*   Mueve los campos correspondientes a los campos de salida.
    MOVE: w_lfa1-lifnr TO w_salida-lifnr,
          w_lfa1-j_sc_capital TO w_salida-capital,
          lv_name      TO w_salida-name1.

    DESCRIBE TABLE i_salida LINES lv_lines.

    lv_indice = lv_lines.

*   Obtener el indice de primer registro que ooincida con la llave.
    READ TABLE i_lfb1
          INTO w_lfb1
      WITH KEY lifnr = w_salida-lifnr
      BINARY SEARCH.

    IF sy-subrc EQ 0.

      LOOP AT i_lfb1
        INTO w_lfb1
        FROM sy-tabix.

        ADD 1 TO lv_indice.

        IF w_lfb1-lifnr EQ w_salida-lifnr.

          MOVE: w_lfb1-bukrs TO w_salida-bukrs,
                w_lfb1-webtr TO w_salida-webtr.

          READ TABLE i_t001
                INTO w_t001
            WITH KEY bukrs = w_lfb1-bukrs
            BINARY SEARCH.

          IF sy-subrc EQ 0.

            MOVE: w_t001-butxt TO w_salida-butxt.

          ENDIF.

          MODIFY i_salida FROM w_salida INDEX lv_indice.

          IF sy-subrc NE 0.

            CLEAR: w_salida-ekorg,
                   w_salida-ekotx.

            APPEND w_salida TO i_salida.

          ENDIF.

        ELSE.

          EXIT.

        ENDIF.

      ENDLOOP.

    ENDIF.

    lv_indice = lv_lines.

*   Obtener el indice de primer registro que ooincida con la llave.
    READ TABLE i_lfm1
          INTO w_lfm1
      WITH KEY lifnr = w_salida-lifnr
      BINARY SEARCH.

    IF sy-subrc EQ 0.

      LOOP AT i_lfm1
        INTO w_lfm1
        FROM sy-tabix.

        ADD 1 TO lv_indice.

        IF w_lfm1-lifnr EQ w_salida-lifnr.

          MOVE: w_lfm1-ekorg TO w_salida-ekorg.

          READ TABLE i_t024e
                INTO w_t024e
            WITH KEY ekorg = w_lfm1-ekorg
            BINARY SEARCH.

          IF sy-subrc EQ 0.

            MOVE: w_t024e-ekotx TO w_salida-ekotx.

          ENDIF.

          MODIFY i_salida FROM w_salida INDEX lv_indice.

          IF sy-subrc NE 0.

            CLEAR: w_salida-bukrs,
                   w_salida-butxt.

            APPEND w_salida TO i_salida.

          ENDIF.

        ELSE.

          EXIT.

        ENDIF.

      ENDLOOP.

    ENDIF.

  ENDLOOP.

ENDFORM.                    " F_ARMAR_SALIDA
*&---------------------------------------------------------------------*
*&      Form  F_CREAR_ALV_OO                                           *
*&---------------------------------------------------------------------*
*       Para inicializar los componentes requeridos para mostrar el    *
*       ALV OO.                                                        *
*----------------------------------------------------------------------*
FORM f_crear_alv_oo .

* Declaración de estructuras locales.
  DATA: lw_f4   TYPE lvc_s_f4.

* Declaración de tablas internas locales.
  DATA: li_f4   TYPE lvc_t_f4.

* Se crea el contenedor.
  CREATE OBJECT o_container
    EXPORTING
      container_name = 'CONTAINER100'.

  IF NOT o_container IS INITIAL.

*   Se crear el objeto que contendra los datos para la cabecera.
    CREATE OBJECT o_dyndoc_id
      EXPORTING
        style = 'ALV_GRID'.

*   Se crear el objeto que contendra los datos para el pie de página.
    CREATE OBJECT o_dyndoc_id2
      EXPORTING
        style = 'ALV_GRID'.

*   Se divide en contenedor en 3 partes.
    CREATE OBJECT o_splitter
      EXPORTING
        parent  = o_container
        rows    = 3
        columns = 1.

*   Se asigna para primera parte a otro contenedor [Cabecera]
    CALL METHOD o_splitter->get_container
      EXPORTING
        row       = 1
        column    = 1
      RECEIVING
        container = o_parent_top.

*   Se asigna para primera parte a otro contenedor [Grid]
    CALL METHOD o_splitter->get_container
      EXPORTING
        row       = 2
        column    = 1
      RECEIVING
        container = o_parent_grid.

*   Se asigna para primera parte a otro contenedor [Pie de Página]
    CALL METHOD o_splitter->get_container
      EXPORTING
        row       = 3
        column    = 1
      RECEIVING
        container = o_parent_end.

*   Se asigna una altura por default a la primera división.
    CALL METHOD o_splitter->set_row_height
      EXPORTING
        id     = 1
        height = 22.

*   Se asigna una altura por default a la tercera división.
    CALL METHOD o_splitter->set_row_height
      EXPORTING
        id     = 3
        height = 15.

*   Se crea el objeto para almacenar el ALV.
    CREATE OBJECT o_grid
      EXPORTING
        i_parent = o_parent_grid.

    IF NOT o_grid IS INITIAL.

*     Se crea el objeto que contiene los metodos mejorados.
      CREATE OBJECT cl_application.

*     Se activan los eventos para el GRID.
      SET HANDLER cl_application->handle_data_changed  FOR o_grid.
      SET HANDLER cl_application->handle_hotspot_click FOR o_grid.
      SET HANDLER cl_application->handle_top_of_page   FOR o_grid.
      SET HANDLER cl_application->handle_end_of_list   FOR o_grid.
      SET HANDLER cl_application->handle_subtotal_text FOR o_grid.
      SET HANDLER cl_application->handle_onf4          FOR o_grid.
      SET HANDLER cl_application->handle_toolbar       FOR o_grid.
      SET HANDLER cl_application->handle_user_command  FOR o_grid.

*     Se registra una ayuda para el campo AYUDA del ALV OO.
      lw_f4-fieldname = 'AYUDA'.
      lw_f4-register  = 'X'.
      APPEND lw_f4 TO li_f4.

      CALL METHOD o_grid->register_f4_for_fields
        EXPORTING
          it_f4 = li_f4.

*     Registrar Evento Enter para poder activar el evento data_changed.
      CALL METHOD o_grid->register_edit_event
        EXPORTING
          i_event_id = cl_gui_alv_grid=>mc_evt_enter.

*     Registramos el evento cuando se modificar el dato por si acaso no
*     pulsan el ENTER
      CALL METHOD o_grid->register_edit_event
        EXPORTING
          i_event_id = cl_gui_alv_grid=>mc_evt_modified.

*     Para inicializar el catologo de campos.
      CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
        EXPORTING
          i_structure_name       = 'ZES_ALV_OO'
          i_client_never_display = 'X'
        CHANGING
          ct_fieldcat            = i_fdcat
        EXCEPTIONS
          inconsistent_interface = 1
          program_error          = 2
          OTHERS                 = 3.
      IF sy-subrc EQ 0.

        LOOP AT i_fdcat
           INTO w_fdcat.

          w_fdcat-colddictxt = 'L'. "Referencia texto
          w_fdcat-col_opt    = 'X'. "Optimzar columna

          CASE w_fdcat-fieldname.
            WHEN 'LIFNR'.
              w_fdcat-hotspot = 'X'. "HotSpot
            WHEN 'CAPITAL'.
              w_fdcat-edit   = 'X'. "Editable
              w_fdcat-do_sum = 'X'. "Subtotal
            WHEN 'WEBTR'.
              w_fdcat-edit   = 'X'. "Editable
              w_fdcat-do_sum = 'X'. "Subtotal
            WHEN 'TOTAL'.
              w_fdcat-do_sum = 'X'. "Subtotal
            WHEN 'AYUDA'.
              w_fdcat-f4availabl = 'X'. "Activar Ayuda
              w_fdcat-edit       = 'X'. "Editable
          ENDCASE.

          MODIFY i_fdcat FROM w_fdcat.

        ENDLOOP.

*       Llamado a una función para completar el catálogo de campos.
        CALL FUNCTION 'LVC_FIELDCAT_COMPLETE'
          EXPORTING
            i_refresh_buffer = ' '
            i_buffer_active  = ' '
          CHANGING
            ct_fieldcat      = i_fdcat.

      ENDIF.

*     Opimizar el ancho de la columna.
      w_layout-cwidth_opt = 'X'.

*     Creando un ordenamiento default con subtotales.
      w_sort-spos      = 1.
      w_sort-fieldname = 'LIFNR'.
      w_sort-subtot    = 'X'.
      w_sort-up        = 'X'.
      w_sort-comp      = 'X'.
      w_sort-level     = 1.

      APPEND w_sort TO i_sort.

    ENDIF.

  ENDIF.

ENDFORM.                    " F_CREAR_ALV_OO
*&---------------------------------------------------------------------*
*&      Form  F_MOSTRAR_ALV_OO                                         *
*&---------------------------------------------------------------------*
*       Rutina que muestra el ALV OO.                                  *
*----------------------------------------------------------------------*
FORM f_mostrar_alv_oo .

* Llamado al métodos que inicializa el ALV OO.
  CALL METHOD o_grid->set_table_for_first_display
    EXPORTING
      is_variant                    = w_variant
      i_save                        = 'X'
      i_default                     = 'X'
      is_layout                     = w_layout
    CHANGING
      it_outtab                     = i_salida
      it_fieldcatalog               = i_fdcat
      it_sort                       = i_sort
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid
          TYPE sy-msgty
        NUMBER sy-msgno
          WITH sy-msgv1
               sy-msgv2
               sy-msgv3
               sy-msgv4.

  ENDIF.

* Metodo que inicializa la cabecera.
  CALL METHOD o_dyndoc_id->initialize_document.

* Metodo que inicializa el pie página.
  CALL METHOD o_dyndoc_id2->initialize_document.

* Para registrar el evento en el GRID.
  CALL METHOD o_grid->list_processing_events
    EXPORTING
      i_event_name = 'TOP_OF_PAGE'
      i_dyndoc_id  = o_dyndoc_id.

  IF o_html_cntrl IS INITIAL.

*   Creando el objeto en donde se va mostrar la info.
    CREATE OBJECT o_html_cntrl
      EXPORTING
        parent = o_parent_top.

  ENDIF.

* Para registrar el evento en el GRID.
  CALL METHOD o_grid->list_processing_events
    EXPORTING
      i_event_name = 'END_OF_LIST'
      i_dyndoc_id  = o_dyndoc_id2.

  IF o_html_cntrl2 IS INITIAL.

*   Creando el objeto en donde se va mostrar la info.
    CREATE OBJECT o_html_cntrl2
      EXPORTING
        parent = o_parent_end.

  ENDIF.

* Método que obtiene el documentos.
  CALL METHOD o_dyndoc_id->merge_document.

* Referenciando el documentos al control.
  o_dyndoc_id->html_control = o_html_cntrl.

* Mostrar el documentos.
  CALL METHOD o_dyndoc_id->display_document
    EXPORTING
      reuse_control      = 'X'
      parent             = o_parent_top
    EXCEPTIONS
      html_display_error = 1.

* Método que obtiene el documentos.
  CALL METHOD o_dyndoc_id2->merge_document.

* Referenciando el documentos al control.
  o_dyndoc_id2->html_control = o_html_cntrl2.

* Mostrar el documentos.
  CALL METHOD o_dyndoc_id2->display_document
    EXPORTING
      reuse_control      = 'X'
      parent             = o_parent_end
    EXCEPTIONS
      html_display_error = 1.

ENDFORM.                    " F_MOSTRAR_ALV_OO
*----------------------------------------------------------------------*
*       CLASS lcl_co_application IMPLEMENTATION                        *
*----------------------------------------------------------------------*
* Clase que contiene los métodos a implementar.
*----------------------------------------------------------------------*
CLASS lcl_co_application IMPLEMENTATION.

  METHOD handle_data_changed.

*   Para el evento DATA_CHANGED
    PERFORM f_handle_data_changed
      USING er_data_changed
            e_onf4
            e_onf4_before
            e_onf4_after
            e_ucomm.

  ENDMETHOD. "HANDLE_DATA_CHANGED_CLI

  METHOD handle_hotspot_click.

*   Para el evento HOTSPOT_CLICK
    PERFORM f_handle_hotspot_click
      USING e_row_id
            e_column_id
            es_row_no.

  ENDMETHOD. "HANDLE_HOTSPOT_CLICK

  METHOD handle_top_of_page.

*   Para el evento TOP_OF_PAGE
    PERFORM f_handle_top_of_page
      USING e_dyndoc_id
            table_index.

  ENDMETHOD.                    "HANDLE_TOP_OF_PAGE

  METHOD handle_end_of_list.

*   Para el evento END_OF_LIST
    PERFORM f_handle_end_of_list
      USING e_dyndoc_id.

  ENDMETHOD.                    "HANDLE_END_OF_LIST

  METHOD handle_subtotal_text.

*   Para el evento SUBTOTAL_TEXT
    PERFORM f_handle_subtotal_text
      USING es_subtottxt_info
            ep_subtot_line
            e_event_data.

  ENDMETHOD.                    "HANDLE_SUBTOTAL_TEXT

  METHOD handle_onf4.

*   Para el evento ONF4
    PERFORM f_handle_onf4
      USING e_fieldname
            e_fieldvalue
            es_row_no
            er_event_data
            et_bad_cells
            e_display.

    er_event_data->m_event_handled = 'X' .

  ENDMETHOD.                    "HANDLE_ONF4

  METHOD handle_toolbar.

*   Para el evento TOOLBAR
    PERFORM f_handle_toolbar
      USING e_object.

  ENDMETHOD.                    "HANDLE_TOOLBAR

  METHOD handle_user_command.

*   Para el evento USER_COMMAND
    PERFORM f_handle_user_command
      USING e_ucomm.

  ENDMETHOD.                    "HANDLE_USER_COMMAND

ENDCLASS. "cl_application
*&---------------------------------------------------------------------*
*&      Form  F_HANDLE_HOTSPOT_CLICK                                   *
*&---------------------------------------------------------------------*
*       Rutina para procesar el evento HOTSPOT_CLICK.                  *
*----------------------------------------------------------------------*
*      -->P_E_ROW_ID    Contiene ID de la fila.                        *
*      -->P_E_COLUMN_ID Contiene ID de la columna.                     *
*      -->P_ES_ROW_NO   Contiene el número de fila.                    *
*----------------------------------------------------------------------*
FORM f_handle_hotspot_click
  USING p_e_row_id    TYPE lvc_s_row
        p_e_column_id TYPE lvc_s_col
        p_es_row_no   TYPE lvc_s_roid.

  READ TABLE i_salida
        INTO w_salida
       INDEX p_e_row_id-index.

  IF sy-subrc EQ 0.

    MESSAGE i398(00) WITH: 'Vendor '
                            w_salida-lifnr
                            'was seleced'
                            space.

  ENDIF.

ENDFORM.                    " F_HANDLE_HOTSPOT_CLICK
*&---------------------------------------------------------------------*
*&      Form  F_HANDLE_DATA_CHANGED                                    *
*&---------------------------------------------------------------------*
*       Rutina para procesar el evento DATA_CHANGED.                   *
*----------------------------------------------------------------------*
*      -->P_ER_DATA_CHANGED Contiene el objeto cambiado.               *
*      -->P_E_ONF4          Si se ejecutó el evento ONF4.              *
*      -->P_E_ONF4_BEFORE   Si se ejecutó el evento ONF4_BEFORE.       *
*      -->P_E_ONF4_AFTER    Si se ejecutó el evento ONF4_AFTER.        *
*      -->P_E_UCOMM         Contiene la acción de usuario.             *
*----------------------------------------------------------------------*
FORM f_handle_data_changed
  USING p_er_data_changed TYPE REF TO cl_alv_changed_data_protocol
        p_e_onf4          TYPE char01
        p_e_onf4_before   TYPE char01
        p_e_onf4_after    TYPE char01
        p_e_ucomm         TYPE sy-ucomm.

* Declaratios of local structures.
  DATA: lw_mod_cell TYPE lvc_s_modi,
        lw_stable   TYPE lvc_s_stbl.

* Declaración de variables locales.
  DATA: lv_formato_dec LIKE usr01-dcpfm.

* Para obtener la configuración de las cantidades del usuario.
  SELECT SINGLE dcpfm
           INTO lv_formato_dec
           FROM usr01
          WHERE bname = sy-uname.

  IF sy-subrc NE 0.

    CLEAR lv_formato_dec.

  ENDIF.

* Loop the row for modify the ALV and the output table.
  LOOP AT p_er_data_changed->mt_mod_cells
     INTO lw_mod_cell.

    READ TABLE i_salida
          INTO w_salida
         INDEX lw_mod_cell-row_id.

    IF sy-subrc EQ 0.

*     Solo los campos que se van a actualizar.
      CASE  lw_mod_cell-fieldname.

        WHEN 'CAPITAL'.

*         Efectuando conversión [. ,]
          CASE lv_formato_dec.
            WHEN 'X'. "Coma Decimal
              REPLACE '.' IN lw_mod_cell-value WITH ','.
            WHEN 'Y'.   "punto decimal
              REPLACE ',' IN lw_mod_cell-value WITH '.'.
          ENDCASE.

          w_salida-capital = lw_mod_cell-value.

        WHEN 'WEBTR'.

*         Efectuando conversión [. ,]
          CASE lv_formato_dec.
            WHEN 'X'. "Coma Decimal
              REPLACE '.' IN lw_mod_cell-value WITH ','.
            WHEN 'Y'.   "punto decimal
              REPLACE ',' IN lw_mod_cell-value WITH '.'.
          ENDCASE.

          w_salida-webtr = lw_mod_cell-value.

      ENDCASE.

*     Realizando calculos...
      w_salida-total = w_salida-capital + w_salida-webtr.

*     Modificando la tabla interna con los nuevos valores.
      MODIFY i_salida
        FROM w_salida
       INDEX lw_mod_cell-row_id.

      IF sy-subrc EQ 0.

        CLEAR w_salida.

      ENDIF.

    ENDIF.

*   Para actualizar la celda.
    CALL METHOD p_er_data_changed->modify_cell
      EXPORTING
        i_row_id    = lw_mod_cell-row_id
        i_fieldname = lw_mod_cell-fieldname
        i_value     = lw_mod_cell-value.

  ENDLOOP.

  lw_stable-row = 'X'.
  lw_stable-col = 'X'.

* Método que refresca el GRID con los nuevos valores.
  CALL METHOD o_grid->refresh_table_display
    EXPORTING
      is_stable = lw_stable
    EXCEPTIONS
      finished  = 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.

ENDFORM.                    " F_HANDLE_DATA_CHANGED
*&---------------------------------------------------------------------*
*&      Form  F_HANDLE_TOP_OF_PAGE                                     *
*&---------------------------------------------------------------------*
*       Rutina para procesar el evento TOP_OF_PAGE.                    *
*----------------------------------------------------------------------*
*      -->P_E_DYNDOC_ID  Contiene la información para la cabecera.     *
*      -->P_TABLE_INDEX  Contiene el indica inicial.                   *
*----------------------------------------------------------------------*
FORM f_handle_top_of_page
  USING p_e_dyndoc_id TYPE REF TO cl_dd_document
        p_table_index TYPE syindex.

* Declaraciones de variables locales.
  DATA: lv_text1     TYPE sdydo_text_element,
        lv_text2     TYPE sdydo_text_element,
        lv_text3     TYPE sdydo_text_element,
        lv_text4     TYPE sdydo_text_element,
        lv_text5     TYPE sdydo_text_element,
        lv_fecha(10) TYPE c,
        lv_hora(8)   TYPE c.

* Declaraciones de objetos locales.
  DATA: lo_ta   TYPE REF TO cl_dd_table_element,
        lo_col1 TYPE REF TO cl_dd_area,
        lo_col2 TYPE REF TO cl_dd_area,
        lo_col3 TYPE REF TO cl_dd_area.

  WRITE sy-datlo TO lv_fecha DD/MM/YYYY.
  WRITE sy-timlo TO lv_hora.

  IF NOT s_lifnr-high IS INITIAL.

    CONCATENATE: 'Vendor'
                 s_lifnr-low
                 'to'
                 s_lifnr-high
            INTO lv_text1
            SEPARATED BY space.

  ELSE.

    CONCATENATE: 'Vendor'
                 s_lifnr-low
            INTO lv_text1
            SEPARATED BY space.

  ENDIF.

  lv_text2 = 'The report is displayed sucessfully'.
  lv_text3 = 'Is Example the header in ALV OO'.

  CONCATENATE: 'Fecha' "Fecha
               lv_fecha
               INTO lv_text4
               SEPARATED BY space.

  CONCATENATE: 'Hora' "Hora
               lv_hora
               INTO lv_text5
               SEPARATED BY space.

* Crea Tabla para Cabecera de 3 Columnas
  CALL METHOD p_e_dyndoc_id->add_table
    EXPORTING
      no_of_columns = 3
      width         = '100%'
      border        = '0'
    IMPORTING
      table         = lo_ta.

* Asignado el espacio a ocupar para la columna uno
  CALL METHOD lo_ta->add_column
    EXPORTING
      width  = '50%'
    IMPORTING
      column = lo_col1.

* Asignado el espacio a ocupar para la columna dos
  CALL METHOD lo_ta->add_column
    EXPORTING
      width  = '35%'
    IMPORTING
      column = lo_col2.

* Asignado el espacio a ocupar para la columna tres
  CALL METHOD lo_ta->add_column
    EXPORTING
      width  = '15%'
    IMPORTING
      column = lo_col3.

* Quitando las filas que se han de crear para esta columna.
  CALL METHOD lo_ta->span_rows
    EXPORTING
      col_with_span = lo_col3
      no_of_rows    = 3
    EXCEPTIONS
      span_failed   = 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.
  ELSE.

*   Agregando un logo creado en Trans. OEAR.
    CALL METHOD lo_col3->add_picture
      EXPORTING
        picture_id = 'ZLOGO'.

  ENDIF.

* Agregando espacio a la Columna 1 Fila 1
  CALL METHOD lo_col1->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 1 Fila 1
  CALL METHOD lo_col1->add_text
    EXPORTING
      text         = lv_text1
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

* Creando una fila...
  CALL METHOD lo_ta->new_row.

* Agregando espacio a la Columna 1 Fila 2
  CALL METHOD lo_col1->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 1 Fila 2
  CALL METHOD lo_col1->add_text
    EXPORTING
      text         = lv_text2
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

* Agregando espacio a la Columna 2 Fila 2
  CALL METHOD lo_col2->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 2 Fila 2
  CALL METHOD lo_col2->add_text
    EXPORTING
      text         = lv_text4 "Fecha
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

* Creando una fila...
  CALL METHOD lo_ta->new_row.

* Agregando espacio a la Columna 1 Fila 3
  CALL METHOD lo_col1->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 1 Fila 3
  CALL METHOD lo_col1->add_text
    EXPORTING
      text         = lv_text3
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

* Agregando espacio a la Columna 2 Fila 3
  CALL METHOD lo_col2->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 2 Fila 3
  CALL METHOD lo_col2->add_text
    EXPORTING
      text         = lv_text5 "Hora
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

ENDFORM.                    " F_HANDLE_TOP_OF_PAGE
*&---------------------------------------------------------------------*
*&      Form  F_HANDLE_END_OF_LIST                                     *
*&---------------------------------------------------------------------*
*       Rutina para procesar el evento END_OF_LIST.                    *
*----------------------------------------------------------------------*
*      -->P_E_DYNDOC_ID  Contiene la información para la cabecera.     *
*----------------------------------------------------------------------*
FORM f_handle_end_of_list
  USING p_e_dyndoc_id TYPE REF TO cl_dd_document.

* Declaraciones de variables locales.
  DATA: lv_text1     TYPE sdydo_text_element,
        lv_text2     TYPE sdydo_text_element,
        lv_text3     TYPE sdydo_text_element,
        lv_text4     TYPE sdydo_text_element,
        lv_text5     TYPE sdydo_text_element.

* Declaraciones de objetos locales.
  DATA: lo_ta   TYPE REF TO cl_dd_table_element,
        lo_col1 TYPE REF TO cl_dd_area,
        lo_col2 TYPE REF TO cl_dd_area,
        lo_col3 TYPE REF TO cl_dd_area.

  IF NOT s_lifnr-high IS INITIAL.

    CONCATENATE: 'Vendor'
                 s_lifnr-low
                 'to'
                 s_lifnr-high
            INTO lv_text1
            SEPARATED BY space.

  ELSE.

    CONCATENATE: 'Vendor'
                 s_lifnr-low
            INTO lv_text1
            SEPARATED BY space.

  ENDIF.

  lv_text2 = 'The report is displayed sucessfully'.
  lv_text3 = 'Is Example the footer in ALV OO'.
  lv_text4 = 'The footer creating tables'.
  lv_text5 = 'Columns and Rows with texts'.

* Crea Tabla para Cabecera de 2 Columnas
  CALL METHOD p_e_dyndoc_id->add_table
    EXPORTING
      no_of_columns = 2
      width         = '100%'
      border        = '0'
    IMPORTING
      table         = lo_ta.

* Asignado el espacio a ocupar para la columna uno
  CALL METHOD lo_ta->add_column
    EXPORTING
      width  = '15%'
    IMPORTING
      column = lo_col1.

* Asignado el espacio a ocupar para la columna dos
  CALL METHOD lo_ta->add_column
    EXPORTING
      width  = '15%'
    IMPORTING
      column = lo_col2.

* Agregando espacio a la Columna 1 Fila 1
  CALL METHOD lo_col1->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 1 Fila 1
  CALL METHOD lo_col1->add_text
    EXPORTING
      text         = lv_text1
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

* Creando una fila...
  CALL METHOD lo_ta->new_row.

* Agregando espacio a la Columna 1 Fila 2
  CALL METHOD lo_col1->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 1 Fila 2
  CALL METHOD lo_col1->add_text
    EXPORTING
      text         = lv_text2
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

* Agregando espacio a la Columna 2 Fila 2
  CALL METHOD lo_col2->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 2 Fila 2
  CALL METHOD lo_col2->add_text
    EXPORTING
      text         = lv_text4
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

* Creando una fila...
  CALL METHOD lo_ta->new_row.

* Agregando espacio a la Columna 1 Fila 3
  CALL METHOD lo_col1->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 1 Fila 3
  CALL METHOD lo_col1->add_text
    EXPORTING
      text         = lv_text3
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

* Agregando espacio a la Columna 2 Fila 3
  CALL METHOD lo_col2->add_gap
    EXPORTING
      width = 10.

* Agregando texto a la Columna 2 Fila 3
  CALL METHOD lo_col2->add_text
    EXPORTING
      text         = lv_text5
      sap_fontsize = 'MEDIUM'
      sap_emphasis = 'Strong'.

ENDFORM.                    " F_HANDLE_END_OF_LIST
*&---------------------------------------------------------------------*
*&      Form  F_HANDLE_SUBTOTAL_TEXT                                   *
*&---------------------------------------------------------------------*
*       Rutina para procesar el evento SUBTOTAL_TEXT.                  *
*----------------------------------------------------------------------*
*      -->P_ES_SUBTOTTXT_INFO Contiene el texto de total.              *
*      -->P_EP_SUBTOT_LINE    Contiene la linea del subtotal.          *
*      -->P_E_EVENT_DATA      Contiene texto subtotal del contenedor.  *
*----------------------------------------------------------------------*
FORM f_handle_subtotal_text
  USING p_es_subtottxt_info TYPE lvc_s_stxt
        p_ep_subtot_line    TYPE REF TO data
        p_e_event_data      TYPE REF TO cl_alv_event_data.

* Declaración de apuntadores locales.
  FIELD-SYMBOLS:  TYPE ANY.

* Campo con los totales
  CASE p_es_subtottxt_info-criteria.
    WHEN 'LIFNR'.

*     Asignado un texto del subtotal.
      ASSIGN  p_e_event_data->m_data->* TO .
       = 'Subtotal Vendor'.

      p_es_subtottxt_info-crit_text = 'Subtotal Vendor'.

  ENDCASE.

ENDFORM.                    " F_HANDLE_SUBTOTAL_TEXT
*&---------------------------------------------------------------------*
*&      Form  F_OBTENER_VARIANTE                                       *
*&---------------------------------------------------------------------*
*       Obtiene una variante almacenada con el matchcode               *
*----------------------------------------------------------------------*
FORM f_obtener_variante .

* Declaración de variables locales
  DATA: lv_exit TYPE c VALUE ''. "Guarda la acción del usuario

* Llamado a la función [REUSE_ALV_VARIANT_F4] para buscar una variante
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = w_xvariant
      i_save        = 'A'
    IMPORTING
      e_exit        = lv_exit
      es_variant    = w_xvariant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.

  IF sy-subrc EQ 0.

    IF lv_exit = space.

      p_layout = w_xvariant-variant.

    ENDIF.

  ENDIF.

ENDFORM.                    " F_OBTENER_VARIANTE
*&---------------------------------------------------------------------*
*&      Form  F_CARGAR_VARIANTE                                        *
*&---------------------------------------------------------------------*
*       Activa una variante existente                                  *
*----------------------------------------------------------------------*
FORM f_cargar_variante .

  IF NOT p_layout IS INITIAL.

*   Indica el nombre del programa principal
    w_variant-report    = sy-repid.

*   Indica el usuario
    w_variant-username  = sy-uname.

    MOVE w_variant TO w_xvariant.
    MOVE p_layout  TO w_xvariant-variant.

*   Llamado de la función [REUSE_ALV_VARIANT_EXISTENCE] para aplicar una
*   variante exitente en el ALV
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save        = 'A'
      CHANGING
        cs_variant    = w_xvariant
      EXCEPTIONS
        wrong_input   = 1
        not_found     = 2
        program_error = 3
        OTHERS        = 4.

    IF sy-subrc = 0.

      w_variant = w_xvariant.

    ENDIF.

  ELSE.

    CLEAR w_variant.

  ENDIF.


ENDFORM.                    " F_CARGAR_VARIANTE
*&---------------------------------------------------------------------*
*&      Form  F_INICIALIZAR_VARIANTE                                   *
*&---------------------------------------------------------------------*
*       Inicializando la variante default                              *
*----------------------------------------------------------------------*
FORM f_inicializar_variante .

* Indica el nombre del programa principal
  w_variant-report    = sy-repid.

* Indica el usuario
  w_variant-username  = sy-uname.

* Se toma la variante
  w_xvariant = w_variant.

* Llamado a la función [REUSE_ALV_VARIANT_DEFAULT_GET] para guardar la
* la variante
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save        = 'A'
    CHANGING
      cs_variant    = w_xvariant
    EXCEPTIONS
      wrong_input   = 1
      not_found     = 2
      program_error = 3
      OTHERS        = 4.

  IF sy-subrc = 0.

    p_layout = w_xvariant-variant.

  ENDIF.

ENDFORM.                    " F_INICIALIZAR_VARIANTE
*&---------------------------------------------------------------------*
*&      Form  F_HANDLE_ONF4                                            *
*&---------------------------------------------------------------------*
*       Rutina para procesar el evento ONF4.                           *
*----------------------------------------------------------------------*
*      -->P_E_FIELDNAME   Contiene el nombre del campo.                *
*      -->P_E_FIELDVALUE  Contiene el valor de la celda.               *
*      -->P_ES_ROW_NO     Contiene el ID de la fila.                   *
*      -->P_ER_EVENT_DATA Contiene el objeto con los datos.            *
*      -->P_ET_BAD_CELLS  Contiene las celdas incorrectas.             *
*      -->P_E_DISPLAY     Activa que solo de despliegue.               *
*----------------------------------------------------------------------*
FORM f_handle_onf4
  USING p_e_fieldname   TYPE lvc_fname
        p_e_fieldvalue  TYPE lvc_value
        p_es_row_no     TYPE lvc_s_roid
        p_er_event_data TYPE REF TO cl_alv_event_data
        p_et_bad_cells  TYPE lvc_t_modi
        p_e_display     TYPE char01.

* Declaración de estructuras locales.
  DATA: lw_return TYPE ddshretval,
        lw_stable TYPE lvc_s_stbl.

* Declaración de tablas internas locales.
  DATA: li_t247   TYPE STANDARD TABLE OF t247,
        li_return TYPE STANDARD TABLE OF ddshretval.

* Detectando el campo para desplegar la ayuda correspondiente.
  CASE  p_e_fieldname.
    WHEN 'AYUDA'.

*     Función para obtener los nombres de los meses.
      CALL FUNCTION 'MONTH_NAMES_GET'
        EXPORTING
          language              = sy-langu
        TABLES
          month_names           = li_t247
        EXCEPTIONS
          month_names_not_found = 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.

*     Despliega la ayuda para el campo.
      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
        EXPORTING
          retfield        = 'LTX'
          dynpprog        = sy-repid
          dynpnr          = sy-dynnr
          window_title    = 'Months'
          value_org       = 'S'
        TABLES
          value_tab       = li_t247
          return_tab      = li_return
        EXCEPTIONS
          parameter_error = 1
          no_values_found = 2
          OTHERS          = 3.
      IF sy-subrc EQ 0.

*       Accesando al valor escogido...
        READ TABLE li_return
              INTO lw_return
             INDEX 1.

        IF sy-subrc EQ 0.

*         Accesando a linea en la cual se desplego la ayuda.
          READ TABLE i_salida
                INTO w_salida
               INDEX p_es_row_no-row_id.

          IF sy-subrc EQ 0.

*           Actualizando el valor...
            w_salida-ayuda = lw_return-fieldval.

            MODIFY i_salida
              FROM w_salida
             INDEX sy-tabix.

          ENDIF.

        ENDIF.

      ENDIF.

      lw_stable-row = 'X'.
      lw_stable-col = 'X'.

*     Refrescando el GRID con los nuevos valores.
      CALL METHOD o_grid->refresh_table_display
        EXPORTING
          is_stable = lw_stable
        EXCEPTIONS
          finished  = 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.

  ENDCASE.

ENDFORM.                    " F_HANDLE_ONF4
*&---------------------------------------------------------------------*
*&      Form  F_HANDLE_TOOLBAR                                         *
*&---------------------------------------------------------------------*
*       Rutina para procesar el evento TOOLBAR.                        *
*----------------------------------------------------------------------*
*      -->P_E_OBJECT  Contiene el objeto con los datos.                *
*----------------------------------------------------------------------*
FORM f_handle_toolbar
  USING p_e_object TYPE REF TO cl_alv_event_toolbar_set.

* Declaración de estructuras locales.
  DATA: lw_toolbar TYPE stb_button.

* Agregando un separador.
  CLEAR lw_toolbar.
  lw_toolbar-butn_type = 3.
  APPEND lw_toolbar TO p_e_object->mt_toolbar.

* Agregando el boton MAIL a la barra de botones del GRID.
  CLEAR lw_toolbar.
  lw_toolbar-icon      = icon_mail.
  lw_toolbar-butn_type = 0.
  lw_toolbar-function  = 'MAIL'.
  lw_toolbar-quickinfo = 'Enviar info al Mail'.
  lw_toolbar-disabled  = space.
  lw_toolbar-text      = 'Mail'.

  APPEND lw_toolbar TO p_e_object->mt_toolbar.

ENDFORM.                    " F_HANDLE_TOOLBAR
*&---------------------------------------------------------------------*
*&      Form  F_HANDLE_USER_COMMAND                                    *
*&---------------------------------------------------------------------*
*       Rutina para procesar el evento USER_COMMAND.                   *
*----------------------------------------------------------------------*
*      -->P_E_UCOMM  Contiene la acción del usuario en el GRID.        *
*----------------------------------------------------------------------*
FORM f_handle_user_command
  USING p_e_ucomm TYPE sy-ucomm.

* Evaluar los botones del ALV GRID OO.
  CASE p_e_ucomm.
    WHEN 'MAIL'.
      MESSAGE 'Pulsó el botón MAIL'
         TYPE 'I'.
  ENDCASE.

ENDFORM.                    " F_HANDLE_USER_COMMAND
*&---------------------------------------------------------------------*
*&      Form  F_LIMPIAR_PARAMETROS                                     *
*&---------------------------------------------------------------------*
*       Rutina para limpiar los parámetros de selección.               *
*----------------------------------------------------------------------*
FORM f_limpiar_parametros .

  CLEAR: p_layout,
         s_lifnr,
         w_variant,
         w_xvariant.

  REFRESH s_lifnr.

ENDFORM.                    " F_LIMPIAR_PARAMETROS

Include PBO


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa             : ZPRIMERPROGRAMA_O                             *
* Descripción          : Para todos los procesos antes de la pantalla  *
*                        Ejemplo de creación de un ALV OO con el manejo*
*                        de los principales eventos.                   *
* Desarrollador        : José Ángel Moreno Nieblas    MZAVALA          *
* Fecha Creación       : 05.06.2010                                    *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT                                    *
*&---------------------------------------------------------------------*
*       Para asignar un titulo y botones a la pantalla 100.            *
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.

  SET PF-STATUS 'PF0100'.
  SET TITLEBAR 'T0100'.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0200  OUTPUT                                    *
*&---------------------------------------------------------------------*
*       Para asignar un titulo y botones a la pantalla 200.            *
*----------------------------------------------------------------------*
MODULE status_0200 OUTPUT.

  SET PF-STATUS 'PF0200'.
  SET TITLEBAR 'T0100'.

ENDMODULE.               " STATUS_0200  OUTPUT

Include PAI


*----------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa             : ZPRIMERPROGRAMA_I                             *
* Descripción          : Para todos los procesos despues de la pantalla*
*                        Ejemplo de creación de un ALV OO con el manejo*
*                        de los principales eventos.                   *
* Desarrollador        : José Ángel Moreno Nieblas    MZAVALA          *
* Fecha Creación       : 05.06.2010                                    *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  EXIT100  INPUT                                         *
*&---------------------------------------------------------------------*
*   Para salir de la pantalla 100 sin respetar los campos obligatorios.*
*----------------------------------------------------------------------*
MODULE exit100 INPUT.

  CASE v_ucomm100.
    WHEN 'BACK'
      OR 'CANC'
      OR 'EXIT'.

      LEAVE PROGRAM.

  ENDCASE.

ENDMODULE.                 " EXIT100  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT                               *
*&---------------------------------------------------------------------*
*       Para evaluar los botones de la patalla 100.                    *
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  CASE v_ucomm100.
    WHEN 'EXEC'.

*     Para obtener los datos para el reporte.
      PERFORM f_obtener_datos.

*     Para crear el reporte de salida.
      PERFORM f_armar_salida.

*     Para mostrar el ALV OO.
      PERFORM f_mostrar_alv_oo.

*     Llamado a la pantalla 0200.
      CALL SCREEN 0200.

  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0200  INPUT                               *
*&---------------------------------------------------------------------*
*       Para evaluar los botones de la pantalla 200.                   *
*----------------------------------------------------------------------*
MODULE user_command_0200 INPUT.

  CASE v_ucomm200.
    WHEN 'BACK'
      OR 'CANC'.

      SET SCREEN 0100.
      LEAVE SCREEN.

    WHEN 'EXIT'.

      LEAVE PROGRAM.

  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0200  INPUT

Pantalla 100


PROCESS BEFORE OUTPUT.

* Asignar un titulo y un estatus.
  MODULE status_0100.

* Llamado de la subcreen 0001
  CALL SUBSCREEN sub100 INCLUDING sy-repid '0001'.

PROCESS AFTER INPUT.

* Para obtener los valores de la screen.
  CALL SUBSCREEN sub100.

* Para salir aunque tenga parámetros obligatorios.
  MODULE exit100 AT EXIT-COMMAND.

* Validar la acción de usuario.
  MODULE user_command_0100.

Pantalla 200


PROCESS BEFORE OUTPUT.

* Asignar un titulo y un estatus.
  MODULE status_0200.

PROCESS AFTER INPUT.

* Validar la acción de usuario.
  MODULE user_command_0200.

Funcion para leer los valores de una pantalla

2010-07-21T10:54:00.000-07:00

1. Declaraciones

* Estructuras
DATA: lw_dynpro TYPE dynpread.

* Tablas Internas
DATA: li_dynpro TYPE STANDARD TABLE OF dynpread.

2. Se llenan todos los parametros que se requieren leer de la pantalla en la tabla.

lw_dynpro-fieldname = 'P_COUNTRY'.

APPEND lw_dynpro TO li_dynpro.

3. Se aplica la siguiente funcion:

CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = sy-repid "Programa
dynumb = sy-dynnr "No de pantalla
translate_to_upper = 'X' "Ponerlo en mayusculas
TABLES
dynpfields = li_dynpro "Tabla con los valores a leer
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
invalid_parameter = 7
undefind_error = 8
double_conversion = 9
stepl_not_found = 10
OTHERS = 11.

IF sy-subrc EQ 0.

SORT li_dynpro
BY fieldname.

* Se busca el valor de acuerdo a los valores leidos...
READ TABLE li_dynpro
INTO lw_dynpro
WITH KEY fieldname = 'P_COUNTRY'
BINARY SEARCH.

IF sy-subrc EQ 0.

* Se asigna y se obtiene el valor leido de la pantalla.
p_country = lw_dynpro-fieldvalue.

ENDIF.

ENDIF.

CALL TRANSACTION VA01, VF01, FB01 Y F-32 CON OPCION JOB

2010-07-16T09:41:00.000-07:00

va01 - creacion de la solicitud de la nota de credito.
vf01 - creacion del documento de nota de credito.
vb01 - reversa del documento de descuento.
f-32 - creacion de documento de compensacion de la nota y del descuento.

Programa Principal


*&---------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa            : Z_PROG_OTCCAR18                                *
* Descripción         : Creacion de nota de credito (Bonificacion      *
*                       pronto pago)                                   *
* Consultor Funcional : Willver Ruiz, Maria de Llano, Héctor Soto      *
* Consultor técnico   : Cristina Rangel -  exchneo_f10                 *
* ID Componente       : OTCAR18                                        *
* Número de Req.      : OTCAR18                                        *
*----------------------------------------------------------------------*
* LOG DE MODIFICACIONES                                                *
*----------------------------------------------------------------------*
* Descripción         : Cancelacion de descuentro FI y creacion de     *
*                       descuento SD.                                  *
* Consultor funcional : Javer Echavez                                  *
* Consultor técnico   : Jose Angel Moreno Nieblas EXCHNEO_F09          *
* Fecha Modificación  : 03.07.2010                                     *
* ID Componente       : OTCAR18                                        *
* Número de Req.      : OTCAR18                                        *
*----------------------------------------------------------------------*

REPORT  z_prog_otccar18.

*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*----------------------------------------------------------------------*
* Declaración de Includes.                                             *
*----------------------------------------------------------------------*
INCLUDE: z_prog_otccar18_a, "Declaraciones globales
         z_prog_otccar18_b. "Subrutinas

*TABLES: vbfa.

************************** CONSTANTES *********************************
*CONSTANTS: c_tipo1 LIKE vbfa-vbtyp_n    VALUE 'O',
*           c_tipo2 LIKE vbfa-vbtyp_v    VALUE 'M',
*           c_tipo3 LIKE vbrp-augru_auft VALUE 'Z7'.


*******************************  TIPOS *******************************
*TYPES:
*BEGIN OF ty_vbfa,
*  vbelv   LIKE vbfa-vbelv,
*  vbeln   LIKE vbfa-vbeln,
*  vbtyp_n LIKE vbfa-vbtyp_n,
*  vbtyp_v LIKE vbfa-vbtyp_v,
*END OF ty_vbfa.
*
*TYPES:
*BEGIN OF ty_vbrp,
*  vbeln       LIKE vbrp-vbeln,
*  posnr       LIKE vbrp-posnr,
*  augru_auft  LIKE vbrp-augru_auft,
*END OF ty_vbrp.
*
************************* ESTRUCTURAS *******************************
*DATA: w_vbfa     TYPE ty_vbfa,
*      w_vbrp     TYPE ty_vbrp.

*DATA: w_bdcdata  TYPE bdcdata,
*      w_msgcoll  TYPE bdcmsgcoll,
*      w_params   TYPE ctu_params.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

*********************************   TABLAS  ****************************
*DATA: i_bdcdata TYPE STANDARD TABLE OF bdcdata,
*      i_msgcoll TYPE STANDARD TABLE OF bdcmsgcoll.
*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*      i_msgcoll1 type standard table of bdcmsgcoll.
*DATA: t_bkpf LIKE bkpf OCCURS 0 WITH HEADER LINE,
*      t_bseg LIKE bseg OCCURS 0  WITH HEADER LINE.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

DATA: v_existe_nc(1) TYPE c.

******************************** PARAMETROS ****************************
*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*PARAMETERS: p_fact LIKE vbfa-vbeln.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

START-OF-SELECTION.

*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*  CLEAR: w_vbfa,
*         w_vbrp.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

  CLEAR v_existe_nc.
* Se busca si existe una nota de credito relacionada a la factura
  PERFORM f_search_nc
*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*             USING p_fact
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
             CHANGING v_existe_nc.

*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
  IF v_existe_nc EQ 'X'.
*IF v_existe_nc EQ space.\

    LOOP AT i_bkpf
       INTO w_bkpf.

      READ TABLE i_bseg
            INTO w_bseg
        WITH KEY belnr = w_bkpf-belnr
                 bukrs = w_bkpf-bukrs
                 gjahr = w_bkpf-gjahr
        BINARY SEARCH.

      IF sy-subrc EQ 0.

        READ TABLE i_bsad
              INTO w_bsad
          WITH KEY bukrs = w_bseg-bukrs
                   augbl = w_bseg-belnr
                   gjahr = w_bseg-gjahr
          BINARY SEARCH.

        IF sy-subrc EQ 0
          AND NOT w_bsad-vbeln IS INITIAL.

          READ TABLE i_compensadas
                INTO w_compensadas
            WITH KEY bukrs = w_bsad-bukrs
                     gjahr = w_bsad-gjahr
                     sktbl = w_bseg-belnr
                     belnr = w_bsad-belnr
                     vbeln = w_bsad-vbeln
            BINARY SEARCH.

          IF sy-subrc NE 0.
*            AND ( w_bkpf-tcode = 'VF01'
*            OR w_bkpf-tcode = 'VF02'
*            OR w_bkpf-tcode = 'VF04' ) .

*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

* Genera el call transaction para la transaccion VA01

*  Si no existe una Nota de Crédito por Pronto Pago se hace un call
*  transaction a VA01 para la creación de la Solicitud de la Nota de
*  Crédito con referencia a la factura (Parámetro de Entrada)  que
*  OTC017 esta validando como OK ,

            PERFORM f_call_va01
*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
              USING w_bsad-vbeln.
*              USING p_fact.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

* Genera el call transaction para la transaccion VF01

* llamar la transacción VF01, hecha en el mismo mandante, para la
* creación del documento Nota de Crédito donde se llenara el campo
* Documento desde parámetros de memoria.
            PERFORM f_call_vf01.

*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
** Genera el call transaction para la transaccion FB01
*
**  Antes de hacer el Call Transaction a VF01 verificar que ya este
**  creada la Solicitud de Nota de Crédito
*
** Falta Especifiar como validar que ya se haya creado la solicitud de
** Nota de Credito
*
**  Posterior al proceso de Creación de Nota de Crédito se realizará un
**  proceso de  reversa de la aplicación contable del Descuento por
**  pronto pago , mediante la transacción  FB01
*      PERFORM f_call_fb01
*        USING w_bsid.
**           TABLES t_bkpf
**                  t_bseg.

            w_logcom-mandt = sy-mandt.
            w_logcom-bukrs = w_bsad-bukrs.
            w_logcom-gjahr = w_bsad-gjahr.
            w_logcom-sktbl = w_bseg-belnr.
            w_logcom-belnr = w_bsad-belnr.
            w_logcom-vbeln = w_bsad-vbeln.

            APPEND w_logcom TO i_logcom.

            IF sy-subrc EQ 0.

              CLEAR w_logcom.

            ENDIF.

          ENDIF.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
        ENDIF.

      ENDIF.

    ENDLOOP.

  ENDIF.

  IF NOT i_logcom[] IS INITIAL.

    MODIFY z0140_logfactura FROM TABLE i_logcom.

    IF sy-subrc EQ 0.

      COMMIT WORK AND WAIT.
      WAIT UP TO 5 SECONDS.

    ENDIF.

  ENDIF.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

END-OF-SELECTION.

*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*Para obtener los documentos de FI.
  PERFORM f_doctos_fi.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

*&---------------------------------------------------------------------*
*&      Form  F_CALL_VA01
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text *----------------------------------------------------------------------* FORM f_call_va01   USING p_factura LIKE vbrk-vbeln.    DATA: lv_p                TYPE char1      VALUE 'P',         lv_vsart            TYPE rvari_vnam VALUE 'VSART',         lv_prog             TYPE sycprog    VALUE 'Z_PROG_OTCCAR18',         lv_vsart_value      TYPE vbkd-vsart,         lv_vsbed            TYPE rvari_vnam VALUE 'VSBED',         lv_auart            TYPE rvari_vnam VALUE 'AUART',         lv_augru            TYPE rvari_vnam VALUE 'AUGRU',         lv_vsbed_value      TYPE vbak-vsbed,         lv_augru_value      TYPE vbak-augru,         lv_auart_value      TYPE vbak-auart,         i_vsart             TYPE RANGE OF vsart,         i_vsbed             TYPE RANGE OF vsbed,         i_auart             TYPE RANGE OF auart,         i_augru             TYPE RANGE OF vbak-augru.  *INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010. *  DATA: lv_factura  TYPE vbrk-vbeln.  *  lv_factura = p_factura.    REFRESH: i_bdcdata,            i_msgcoll. *FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.  * Falta Definición Funcional *  SELECT SINGLE *         vbeln "Factura *    INTO lv_factura *    FROM vbrk *   WHERE vbeln = p_factura. * *  "Si existen datos *  IF sy-subrc EQ 0.    CALL FUNCTION 'Z_AB_READ_TVARV'     EXPORTING       i_type       = lv_p       i_programid  = lv_prog       i_fieldname  = lv_augru     IMPORTING       e_parameter  = lv_augru_value     TABLES       t_seloptions = i_augru     EXCEPTIONS       ee_not_found = 1       ee_wrongtype = 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.

  CALL FUNCTION 'Z_AB_READ_TVARV'
    EXPORTING
      i_type       = lv_p
      i_programid  = lv_prog
      i_fieldname  = lv_auart
    IMPORTING
      e_parameter  = lv_auart_value
    TABLES
      t_seloptions = i_auart
    EXCEPTIONS
      ee_not_found = 1
      ee_wrongtype = 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.

  CALL FUNCTION 'Z_AB_READ_TVARV'
    EXPORTING
      i_type       = lv_p
      i_programid  = lv_prog
      i_fieldname  = lv_vsart
    IMPORTING
      e_parameter  = lv_vsart_value
    TABLES
      t_seloptions = i_vsart
    EXCEPTIONS
      ee_not_found = 1
      ee_wrongtype = 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.

  CALL FUNCTION 'Z_AB_READ_TVARV'
    EXPORTING
      i_type       = lv_p
      i_programid  = lv_prog
      i_fieldname  = lv_vsbed
    IMPORTING
      e_parameter  = lv_vsbed_value
    TABLES
      t_seloptions = i_vsbed
    EXCEPTIONS
      ee_not_found = 1
      ee_wrongtype = 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.

  REFRESH i_bdcdata.
  PERFORM f_fill_bdcdata
      USING: 'X' 'SAPMV45A'       '0101',
             ' ' 'BDC_OKCODE'     '/00',
             ' ' 'VBAK-AUART'     lv_auart_value,

             'X' 'SAPLV45C'       '0100',
             ' ' 'BDC_OKCODE'     '=UEBR',
*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*             ' ' 'VBRK-VBELN'     lv_factura,
             ' ' 'VBRK-VBELN'     p_factura,
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

             'X' 'SAPMV45A'       '4001',
             ' ' 'BDC_OKCODE'     '=KKAU',

             'X' 'SAPMV45A'       '4002',
             ' ' 'BDC_OKCODE'     '/EBACK',
             ' ' 'VBAK-AUGRU'     lv_augru_value,

             'X' 'SAPMV45A'       '4001',
             ' ' 'BDC_OKCODE'     '=FEAZ',

             'X' 'SAPMV45A'       '4001',
             ' ' 'BDC_OKCODE'     '=SICH'.
*             ' ' 'VBAK-VSBED'     lv_vsbed_value,
*             ' ' 'VBKD-KZAZU'     'X',
*             ' ' 'VBKD-VSART'     lv_vsart_value.

  w_params-dismode = 'N'.
  w_params-updmode = 'S'.
  w_params-nobinpt = 'X'.

  CALL TRANSACTION 'VA01'
     USING i_bdcdata
     OPTIONS FROM w_params
     MESSAGES INTO i_msgcoll.

*  ENDIF.

*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*  COMMIT WORK AND WAIT.
*
*  WAIT UP TO 5 SECONDS.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

ENDFORM.                    " F_CALL_VA01

*&---------------------------------------------------------------------*
*&      Form  F_CALL_VF01
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text *----------------------------------------------------------------------* FORM f_call_vf01 .    REFRESH: i_bdcdata, *INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.            i_msgcoll. *FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.  * Falta Definición Funcional   PERFORM f_fill_bdcdata       USING: 'X' 'SAPMV60A'     '0102',             ' ' 'BDC_OKCODE'    '/00', *            ' ' 'KOMFK-VBELN(01)'  '888000330',"Falta Especificar               'X' 'SAPMV60A'     '0104',              ' ' 'BDC_OKCODE'   '=SICH'.    w_params-dismode = 'N'.   w_params-updmode = 'S'.   w_params-nobinpt = 'X'.    CALL TRANSACTION 'VF01'      USING i_bdcdata      OPTIONS FROM w_params      MESSAGES INTO i_msgcoll.  *INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.   IF sy-subrc EQ 0.      READ TABLE i_msgcoll           INTO w_msgcoll       WITH KEY msgtyp = 'S'                msgid  = 'VF'                msgnr  = '311'.      IF sy-subrc NE 0.        READ TABLE i_msgcoll             INTO w_msgcoll         WITH KEY msgtyp = 'S'                  msgid  = 'VF'                  msgnr  = '050'.        IF sy-subrc NE 0.          CLEAR w_msgcoll.        ENDIF.      ENDIF.      w_logcom-nocre = w_msgcoll-msgv1.      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'       EXPORTING         input  = w_logcom-nocre       IMPORTING         output = w_logcom-nocre.    ENDIF.  *  COMMIT WORK AND WAIT. *  WAIT UP TO 3 SECONDS. *FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.  ENDFORM.                    " F_CALL_VF01 *&---------------------------------------------------------------------* *&      Form  F_SEARCH_NC                                              * *&---------------------------------------------------------------------* * 1. Verificar que no exista una Nota de Crédito por Descuento de * *    Contado anterior para la misma factura :                          * *  Accesar la tabla VBFA  con el número de factura generada con los    * *  siguientes parámetros:                                              * *  VBFA-VBELV = Número de Factura dado como parámetro                  * *  VBFA-VBTYP_N = O                                                    * *  VBFA-VBTYP_V = M                                                    * *  Si existen registros  validar la clase de Nota de Crédito  en la    * *  VBRP Accesar con el campo VBFA-VBELN y verificar el motivo de Nota  * *  de Credito que sea por Pago por Pronto Pago  ,                      * *  si  VBRP-AUGRU_AUFT= Z7  no  ejecutar el proceso                    * *----------------------------------------------------------------------* *      <--P_V_EXISTE_NC  text                                          * *----------------------------------------------------------------------* FORM f_search_nc *INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010. *        USING p_fact LIKE vbrk-vbeln *FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.         CHANGING pv_existe_nc.  *INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010. **  Accesar la tabla VBFA  con el número de factura generada con los **  siguientes parámetros: **  VBFA-VBELV = Número de Factura dado como parámetro **  VBFA-VBTYP_N = O **  VBFA-VBTYP_V = M *  SELECT vbelv *         vbeln *         vbtyp_n *         vbtyp_v *    UP TO 1 ROWS *    FROM vbfa *    INTO w_vbfa *    WHERE vbelv   = p_fact *      AND vbtyp_n = c_tipo1   "'O' *      AND vbtyp_v = c_tipo2.   "'M' * *    IF sy-subrc = 0. * *      EXIT. * *    ENDIF. * *  ENDSELECT. * *  IF sy-subrc = 0. ** Si existe la nota de credito se valida el tipo ** Si existen registros  validar la clase de Nota de Crédito  en la VBRP ** Accesar con el campo VBFA-VBELN y verificar el motivo de Nota de ** Credito ** que sea por Pago por Pronto Pago  , si  VBRP-AUGRU_AUFT = Z7 ** no  ejecutar el proceso *    SELECT vbeln *           posnr *           augru_auft *      UP TO 1 ROWS *      FROM vbrp *      INTO w_vbrp *      WHERE vbeln      = vbfa-vbeln *        AND augru_auft = c_tipo3.                           "'Z7' * *      IF sy-subrc = 0. * *        EXIT. * *      ENDIF. * *    ENDSELECT. * *    IF sy-subrc = 0. ** Si existe una nota de credito anterior no se sigue el proceso. *      pv_existe_nc = 'X'. * *    ENDIF. * *  ENDIF.   REFRESH r_blart.    r_blart-sign   = 'I'.   r_blart-option = 'EQ'.   r_blart-low    = 'DZ'.   APPEND r_blart.    r_blart-sign   = 'I'.   r_blart-option = 'EQ'.   r_blart-low    = 'AB'.   APPEND r_blart.  * Se seleccionan los siguientes datos de la tablas BKPF:   SELECT bukrs "Sociedad          belnr "Número de un documento contable          gjahr "Ejercicio          blart "Clase de documento          bldat "Cabecera de documento para Contabilidad          budat "Fecha de contabilización          monat "Mes Contable          tcode "Código transacción          xblnr "Número de documento de referencia          waers "Clave de moneda     FROM bkpf     INTO TABLE i_bkpf    WHERE bukrs IN s_bukrs      AND gjahr EQ p_gjahr      AND budat IN s_budat      AND blart IN r_blart.    IF sy-subrc EQ 0.      SORT i_bkpf       BY bukrs          gjahr          budat          blart.  *   Se seleccionan los siguientes datos de la tablas BSEG:     SELECT bukrs "Sociedad            belnr "Número de un documento contable            gjahr "Ejercicio            augbl "Número del documento de compensación            bschl "Clave de contabilización            gsber "División            mwskz "Indicador IVA            wrbtr "Importe en la moneda del documento            kostl "Centro de coste            hkont "Cuenta de mayor            kunnr "Nº de cliente 1            zfbdt "Fecha de Vencimiento       FROM bseg       INTO TABLE i_bseg       FOR ALL ENTRIES IN i_bkpf      WHERE belnr EQ i_bkpf-belnr        AND bukrs EQ i_bkpf-bukrs        AND gjahr EQ i_bkpf-gjahr        AND ktosl EQ 'SKT'.      IF sy-subrc EQ 0.        SORT i_bseg         BY belnr            bukrs            gjahr.  *     Se seleccionan los siguientes datos de la tablas BSAD:       SELECT bukrs "Sociedad              kunnr "Nº de cliente 1              augbl "Número del documento de compensación              gjahr "Ejercicio              belnr "Número de un documento contable              vbeln "Factura         FROM bsad         INTO TABLE i_bsad         FOR ALL ENTRIES IN i_bseg        WHERE bukrs EQ i_bseg-bukrs          AND kunnr IN s_kunnr          AND augbl EQ i_bseg-belnr          AND gjahr EQ i_bseg-gjahr          AND belnr NE i_bseg-belnr.        IF sy-subrc EQ 0.          SORT i_bsad           BY bukrs              augbl              gjahr.  *       Si existe una nota de credito anterior no se sigue el proceso.         pv_existe_nc = 'X'.  *       Se usa select a todos los campos debido a toda la informacion es *       necesaria.         SELECT *           FROM z0140_logfactura           INTO TABLE i_compensadas           FOR ALL ENTRIES IN i_bsad          WHERE bukrs EQ i_bsad-bukrs            AND gjahr EQ i_bsad-gjahr            AND belnr EQ i_bsad-belnr            AND vbeln EQ i_bsad-vbeln.          IF sy-subrc EQ 0.            SORT i_compensadas             BY bukrs                gjahr                sktbl                belnr                vbeln.          ENDIF.        ENDIF.      ENDIF.    ENDIF. *FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.  ENDFORM.                    " F_SEARCH_NC

Include de Declaraciones


*&---------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa            : Z_PROG_OTCCAR18_A                              *
* Descripción         : Declaraciones gloables necesarias para la      *
*                       cancelacion de descuentro FI y creacion de     *
*                       descuento SD.                                  *
* Consultor funcional : Javer Echavez                                  *
* Consultor técnico   : Jose Angel Moreno Nieblas EXCHNEO_F09          *
* Fecha Modificación  : 03.07.2010                                     *
* ID Componente       : OTCAR18                                        *
* Número de Req.      : OTCAR18                                        *
*----------------------------------------------------------------------*
**--------------------------------------------------------------------**
**  T A B L A S                                                       **
**--------------------------------------------------------------------**
TABLES: bkpf,
        bsad.

**--------------------------------------------------------------------**
**  T I P O S                                                         **
**--------------------------------------------------------------------**
TYPES: BEGIN OF ty_bkpf,
  bukrs TYPE bkpf-bukrs, "Sociedad
  belnr TYPE bkpf-belnr, "Número de un documento contable
  gjahr TYPE bkpf-gjahr, "Ejercicio
  blart TYPE bkpf-blart, "Clase de documento
  bldat TYPE bkpf-bldat, "Cabecera de documento para Contabilidad
  budat TYPE bkpf-budat, "Fecha de contabilización
  monat TYPE bkpf-monat, "Mes Contable
  tcode TYPE bkpf-tcode, "Código transacción
  xblnr TYPE bkpf-xblnr, "Número de documento de referencia
  waers TYPE bkpf-waers. "Clave de moneda
TYPES: END OF ty_bkpf.

TYPES: BEGIN OF ty_bseg,
  bukrs TYPE bseg-bukrs, "Sociedad
  belnr TYPE bseg-belnr, "Número de un documento contable
  gjahr TYPE bseg-gjahr, "Ejercicio
  augbl TYPE bseg-augbl, "Número del documento de compensación
  bschl TYPE bseg-bschl, "Clave de contabilización
  gsber TYPE bseg-gsber, "División
  mwskz TYPE bseg-mwskz, "Indicador IVA
  wrbtr TYPE bseg-wrbtr, "Importe en la moneda del documento
  kostl TYPE bseg-kostl, "Centro de coste
  hkont TYPE bseg-hkont, "Cuenta de mayor
  kunnr TYPE bseg-kunnr, "Nº de cliente 1
  zfbdt TYPE bseg-zfbdt. "Fecha de Vencimiento
TYPES: END OF ty_bseg.

TYPES: BEGIN OF ty_bseg_2,
  bukrs TYPE bseg-bukrs, "Sociedad
  belnr TYPE bseg-belnr, "Número de un documento contable
  gjahr TYPE bseg-gjahr, "Ejercicio
  koart TYPE bseg-koart, "Clase de cuenta
  mwskz TYPE bseg-mwskz, "Indicador IVA
  wrbtr TYPE bseg-wrbtr, "Importe en la moneda del documento
  vbeln TYPE bseg-vbeln, "Factura
  wmwst TYPE bseg-wmwst, "Importe del impuesto
  ktosl TYPE bseg-ktosl,
  kunnr TYPE bseg-kunnr. "Nº de cliente 1
TYPES: END OF ty_bseg_2.

TYPES: BEGIN OF ty_bsad,
  bukrs TYPE bsad-bukrs, "Sociedad
  kunnr TYPE bsad-kunnr, "Nº de cliente 1
  augbl TYPE bsad-augbl, "Número del documento de compensación
  gjahr TYPE bsad-gjahr, "Ejercicio
  belnr TYPE bsad-belnr, "Número de un documento contable
  vbeln TYPE bsad-vbeln. "Factura
TYPES: END OF ty_bsad.

TYPES: BEGIN OF ty_bsid,
  bukrs TYPE bsid-bukrs, "Sociedad
  kunnr TYPE bsid-kunnr, "Nº de cliente 1
  gjahr TYPE bsid-gjahr, "Ejercicio
  augbl TYPE bsid-augbl, "Número del documento de compensación
  belnr TYPE bsid-belnr, "Número de un documento contable
  budat TYPE bsid-budat, "Fecha de contabilización
  bldat TYPE bsid-bldat, "Cabecera de documento para Contabilidad
  waers TYPE bsid-waers, "Clave de moneda
  xblnr TYPE bsid-xblnr, "Número de documento de referencia
  blart TYPE bsid-blart, "Clase de documento
  monat TYPE bsid-monat, "Mes Contable
  bschl TYPE bsid-bschl, "Clave de contabilización
  gsber TYPE bsid-gsber, "División
  mwskz TYPE bsid-mwskz, "Indicador IVA
  wrbtr TYPE bsid-wrbtr, "Importe en la moneda del documento
  wmwst TYPE bsid-wmwst, "Importe del impuesto
  hkont TYPE bsid-hkont, "Cuenta de mayor
  zfbdt TYPE bsid-zfbdt, "Fecha de Vencimiento
  vbeln TYPE bsid-vbeln, "Factura
  kostl TYPE bsid-kostl. "Centro de coste
TYPES: END OF ty_bsid.

**--------------------------------------------------------------------**
**  E S T R U C T U R A S                                             **
**--------------------------------------------------------------------**
DATA: w_bdcdata     TYPE bdcdata,
      w_msgcoll     TYPE bdcmsgcoll,
      w_params      TYPE ctu_params,
      w_bseg        TYPE ty_bseg,
      w_bseg_2      TYPE ty_bseg_2,
      w_baux        TYPE ty_bseg_2,
      w_bseg_3      TYPE ty_bseg_2,
      w_compensadas TYPE z0140_logfactura,
      w_logcom      TYPE z0140_logfactura,
      w_bkpf        TYPE ty_bkpf,
      w_bsid        TYPE ty_bsid,
      w_bsad        TYPE ty_bsad.

**--------------------------------------------------------------------**
**  T A B L A S   I N T E R N A S                                     **
**--------------------------------------------------------------------**
DATA: i_bdcdata     TYPE STANDARD TABLE OF bdcdata,
      i_msgcoll     TYPE STANDARD TABLE OF bdcmsgcoll,
      i_bseg        TYPE STANDARD TABLE OF ty_bseg,
      i_bseg_2      TYPE STANDARD TABLE OF ty_bseg_2,
      i_bkpf        TYPE STANDARD TABLE OF ty_bkpf,
      i_bsid        TYPE STANDARD TABLE OF ty_bsid,
      i_compensadas TYPE STANDARD TABLE OF z0140_logfactura,
      i_logcom      TYPE STANDARD TABLE OF z0140_logfactura,
      i_bsad        TYPE STANDARD TABLE OF ty_bsad.

**--------------------------------------------------------------------**
**  R A N G O S                                                       **
**--------------------------------------------------------------------**
RANGES: r_blart FOR bkpf-blart.

**--------------------------------------------------------------------**
** O P C I O N E S   D E   S E L E C C I Ó N   Y   P A R A M E T R O S**
**--------------------------------------------------------------------**
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_kunnr FOR bsad-kunnr,
                s_bukrs FOR bkpf-bukrs  OBLIGATORY.

PARAMETERS:     p_gjahr TYPE bkpf-gjahr OBLIGATORY.

SELECT-OPTIONS: s_budat FOR bkpf-budat  OBLIGATORY.

SELECTION-SCREEN: END OF BLOCK b1.

Include de Rutinas


*&---------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa            : Z_PROG_OTCCAR18_B                              *
* Descripción         : Subrutinas necesarias para la cancelacion de   *
*                       descuentro FI y creacion de descuento SD.      *
* Consultor funcional : Javer Echavez                                  *
* Consultor técnico   : Jose Angel Moreno Nieblas EXCHNEO_F09          *
* Fecha Modificación  : 03.07.2010                                     *
* ID Componente       : OTCAR18                                        *
* Número de Req.      : OTCAR18                                        *
*----------------------------------------------------------------------*
*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*&---------------------------------------------------------------------*
*&      Form  F_CALL_F32                                               *
*&---------------------------------------------------------------------*
*       Para realizar la carga a la transaccion F-32.                  *
*----------------------------------------------------------------------*
FORM f_call_f32 .

* Declaracion de variables locales.
  DATA: lv_budat(10) TYPE c.

  REFRESH: i_bdcdata,
           i_msgcoll.

  WRITE w_bsid-budat TO lv_budat MM/DD/YYYY.

  PERFORM f_fill_bdcdata
   USING: 'X' 'SAPMF05A'         '0131',
          ' ' 'BDC_CURSOR'       'RF05A-XPOS1(03)',
          ' ' 'BDC_OKCODE'       '=PA',
          ' ' 'RF05A-AGKON'      w_bsid-kunnr,
          ' ' 'BKPF-BUDAT'       lv_budat,
          ' ' 'BKPF-MONAT'       w_bsid-monat,
          ' ' 'BKPF-BUKRS'       w_bsid-bukrs,
          ' ' 'BKPF-WAERS'       w_bsid-waers,
          ' ' 'RF05A-XNOPS'      'X',
          ' ' 'RF05A-XPOS1(01)'  ' ',
          ' ' 'RF05A-XPOS1(03)'  'X'.

  PERFORM f_fill_bdcdata
   USING: 'X' 'SAPMF05A'         '0731',
          ' ' 'BDC_CURSOR'       'RF05A-SEL01(02)',
          ' ' 'BDC_OKCODE'       '=PA',
          ' ' 'RF05A-SEL01(01)'  w_logcom-docre,
          ' ' 'RF05A-SEL01(02)'  w_logcom-docnc.

  PERFORM f_fill_bdcdata
   USING: 'X' 'SAPDF05X'         '3100',
          ' ' 'BDC_OKCODE'       '=BU',
          ' ' 'BDC_SUBSCR'       'SAPDF05X                                6102PAGE',
          ' ' 'BDC_CURSOR'       'DF05B-PSSKT(01)',
          ' ' 'RF05A-ABPOS'      '1'.

  w_params-dismode = 'N'.
  w_params-updmode = 'S'.
  w_params-nobinpt = 'X'.

  CALL TRANSACTION 'F-32'
     USING i_bdcdata
     OPTIONS FROM w_params
     MESSAGES INTO i_msgcoll.

  IF sy-subrc EQ 0.

    READ TABLE i_msgcoll
          INTO w_msgcoll
      WITH KEY msgtyp = 'S'
               msgid  = 'F5'
               msgnr  = '312'.

    IF sy-subrc EQ 0.

      w_logcom-docom = w_msgcoll-msgv1.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = w_logcom-docom
        IMPORTING
          output = w_logcom-docom.


    ENDIF.

  ENDIF.

ENDFORM.                    " F_CALL_F32
*&---------------------------------------------------------------------*
*&      Form  F_DOCTOS_FI                                              *
*&---------------------------------------------------------------------*
*       Rutina para obtener los documentos FI.                         *
*----------------------------------------------------------------------*
FORM f_doctos_fi .

* Declaracion de variables locales
  DATA: lv_indice TYPE sy-tabix.

  IF NOT i_logcom[] IS INITIAL.

*   Se seleccionan los siguientes campos de la tabla BSID:
    SELECT bukrs "Sociedad
           kunnr "Nº de cliente 1
           gjahr "Ejercicio
           augbl "Número del documento de compensación
           belnr "Número de un documento contable
           budat "Fecha de contabilización
           bldat "Cabecera de documento para Contabilidad
           waers "Clave de moneda
           xblnr "Número de documento de referencia
           blart "Clase de documento
           monat "Mes Contable
           bschl "Clave de contabilización
           gsber "División
           mwskz "Indicador IVA
           wrbtr "Importe en la moneda del documento
           wmwst "Importe del impuesto
           hkont "Cuenta de mayor
           zfbdt "Fecha de Vencimiento
           vbeln "Factura
           kostl "Centro de coste
      FROM bsid
      INTO TABLE i_bsid
      FOR ALL ENTRIES IN i_logcom
      WHERE bukrs EQ i_logcom-bukrs
        AND gjahr EQ i_logcom-gjahr
        AND vbeln EQ i_logcom-nocre.

    IF sy-subrc EQ 0.

      SORT i_bsid
        BY bukrs
           gjahr
           vbeln.

      SELECT bukrs "Sociedad
             belnr "Número de un documento contable
             gjahr "Ejercicio
             koart "Clase de cuenta
             mwskz "Indicador IVA
             wrbtr "Importe en la moneda del documento
             vbeln "Factura
             wmwst "Importe del impuesto
             ktosl
             kunnr "Nº de cliente 1
        FROM bseg
        INTO TABLE i_bseg_2
        FOR ALL ENTRIES IN i_bsid
        WHERE bukrs EQ i_bsid-bukrs
          AND gjahr EQ i_bsid-gjahr
          AND belnr EQ i_bsid-belnr.

      IF sy-subrc EQ 0.

        SORT i_bseg_2
          BY bukrs
             belnr
             gjahr
             koart.

      ENDIF.

      SORT i_bsad
        BY kunnr.

*     Eliminando todos los clientes que no esten considerados.
      LOOP AT i_bsid
         INTO w_bsid.

        lv_indice = sy-tabix.

        READ TABLE i_bsad
              INTO w_bsad
          WITH KEY kunnr = w_bsid-kunnr
          BINARY SEARCH.

        IF sy-subrc NE 0.

          DELETE i_bsid
           INDEX lv_indice.

        ENDIF.

      ENDLOOP.

    ENDIF.

  ENDIF.

* Actualizando los datos del log...
  LOOP AT i_logcom
     INTO w_logcom.

    lv_indice = sy-tabix.

    READ TABLE i_bsid
          INTO w_bsid
      WITH KEY bukrs = w_logcom-bukrs
               gjahr = w_logcom-gjahr
               vbeln = w_logcom-nocre
      BINARY SEARCH.

    IF sy-subrc EQ 0.

      w_logcom-docnc = w_bsid-belnr.

      READ TABLE i_bseg
            INTO w_bseg
        WITH KEY bukrs = w_logcom-bukrs
                 gjahr = w_logcom-gjahr
                 belnr = w_logcom-sktbl.

      IF sy-subrc NE 0.

        CLEAR w_bseg.

      ENDIF.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

* Genera el call transaction para la transaccion FB01

*  Antes de hacer el Call Transaction a VF01 verificar que ya este
*  creada la Solicitud de Nota de Crédito

* Falta Especifiar como validar que ya se haya creado la solicitud de
* Nota de Credito

*  Posterior al proceso de Creación de Nota de Crédito se realizará un
*  proceso de  reversa de la aplicación contable del Descuento por
*  pronto pago , mediante la transacción  FB01
      PERFORM f_call_fb01
        USING w_bsid.
*           TABLES t_bkpf
*                  t_bseg.

*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*   Generar carga para la compensacion del documento.
      PERFORM f_call_f32.

      MODIFY i_logcom
        FROM w_logcom
       INDEX lv_indice.

    ENDIF.

  ENDLOOP.

  MODIFY z0140_logfactura FROM TABLE i_logcom.

  IF sy-subrc EQ 0.

    COMMIT WORK.

  ENDIF.

ENDFORM.                    " F_DOCTOS_FI
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
*&---------------------------------------------------------------------*
*&      Form  F_CALL_FB01                                              *
*&---------------------------------------------------------------------*
*       Se realiza un call transaction a la FB01.                      *
*----------------------------------------------------------------------*
*  -->  P_W_BSID  Contiene los datos para la grabacion FB01.           *
*----------------------------------------------------------------------*
FORM f_call_fb01
*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
  USING p_w_bsid TYPE ty_bsid.
*          TABLES t_bkpf STRUCTURE t_bkpf
*                 t_bseg STRUCTURE t_bseg.

* Declaracion de variables locales.
  DATA: lv_budat(10) TYPE c,
        lv_zfbdt(10) TYPE c,
        lv_band      TYPE c,
        lv_comp      TYPE bsid-wrbtr,
        lv_bldat(10) TYPE c.

  WRITE: p_w_bsid-bldat TO lv_bldat MM/DD/YYYY,
         p_w_bsid-zfbdt TO lv_zfbdt MM/DD/YYYY,
         p_w_bsid-budat TO lv_budat MM/DD/YYYY.

*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

  REFRESH: i_bdcdata,
*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
           i_msgcoll.

  READ TABLE i_bseg_2
        INTO w_bseg_2
    WITH KEY bukrs = w_bsid-bukrs
             gjahr = w_bsid-gjahr
             belnr = w_bsid-belnr
             koart = 'S'.

  IF sy-subrc EQ 0.

    CLEAR lv_comp.

    LOOP AT i_bseg_2
       INTO w_baux
       FROM sy-tabix.

      IF    w_baux-bukrs = w_bseg_2-bukrs
        AND w_baux-gjahr = w_bseg_2-gjahr
        AND w_baux-belnr = w_bseg_2-belnr
        AND w_baux-koart = w_bseg_2-koart.

        IF w_baux-ktosl IS INITIAL.

          lv_comp = lv_comp + w_baux-wrbtr + w_baux-wmwst.

        ENDIF.

        IF w_baux-ktosl EQ 'MWS'.

          lv_comp = lv_comp + w_baux-wrbtr + w_baux-wmwst.

          IF NOT w_baux-mwskz IS INITIAL.

            lv_band = 'S'.

          ELSE.

            lv_band = 'N'.

          ENDIF.

        ENDIF.

      ENDIF.

    ENDLOOP.

  ENDIF.

  READ TABLE i_bseg_2
        INTO w_bseg_3
    WITH KEY bukrs = w_bsid-bukrs
             gjahr = w_bsid-gjahr
             belnr = w_bsid-belnr
             koart = 'D'.

  IF sy-subrc NE 0.

    CLEAR w_bseg_3.

  ENDIF.

*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

*RF05A-NEWBS / BSEG-BSCHL
*RF05A-NEWKO / BSEG-HKONT, KUNNR
*COBL-GSBER / BSEG-GSBER
*COBL-KOSTL / BSEG-KOSTL
  PERFORM f_fill_bdcdata
   USING: 'X' 'SAPMF05A'  '0100',
          ' ' 'BDC_OKCODE'  '/00',
*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
          ' ' 'BKPF-BLDAT'   lv_bldat,
          ' ' 'BKPF-BLART'   'DR',
          ' ' 'BKPF-BUKRS'   p_w_bsid-bukrs,
          ' ' 'BKPF-BUDAT'   lv_budat,
          ' ' 'BKPF-MONAT'   p_w_bsid-monat,
          ' ' 'BKPF-WAERS'   p_w_bsid-waers,
*          ' ' 'BKPF-XBLNR'   p_w_bsid-xblnr,
*          ' ' 'FS006-DOCID'  '*',
          ' ' 'RF05A-NEWBS'  '50',
          ' ' 'RF05A-NEWKO'  w_bseg-hkont.

  PERFORM f_fill_bdcdata
   USING: 'X' 'SAPMF05A'     '0300',
          ' ' 'BDC_OKCODE'   '/00',
          ' ' 'BSEG-WRBTR'   lv_comp,
          ' ' 'COBL-GSBER'   w_bseg-gsber,
          ' ' 'COBL-KOSTL'   w_bseg-kostl,
          ' ' 'RF05A-NEWBS'  '05',
          ' ' 'RF05A-NEWKO'  w_bseg_3-kunnr.

  IF lv_band = 'S'.

    PERFORM f_fill_bdcdata
     USING: ' ' 'BKPF-XMWST' 'X'.

  ENDIF.

  PERFORM f_fill_bdcdata
   USING: 'X' 'SAPMF05A'     '0301',
          ' ' 'BDC_OKCODE'   '=BU',
          ' ' 'BSEG-GSBER'   w_bseg-gsber,
          ' ' 'BSEG-WRBTR'   w_bseg_3-wrbtr,
          ' ' 'BSEG-ZFBDT'   lv_zfbdt.

*             ' ' 'BKPF-BLDAT'  t_bkpf-bldat,
*             ' ' 'BKPF-BLART'  t_bkpf-blart,
*             ' ' 'BKPF-BUKRS'  t_bkpf-bukrs,
*             ' ' 'BKPF-BUDAT'  t_bkpf-budat,
*             ' ' 'BKPF-MONAT'  t_bkpf-monat,
*             ' ' 'BKPF-WAERS'  t_bkpf-waers,
*             ' ' 'BKPF-XBLNR'  t_bkpf-xblnr,
*             ' ' 'FS006-DOCID'  '*',
*             ' ' 'RF05A-NEWBS'  t_bseg-bschl,
*             ' ' 'RF05A-NEWKO'  t_bseg-hkont,
*
*             'X' 'SAPMF05A'  '0300',
*             ' ' 'BDC_OKCODE'  '/00',
*             ' ' 'BSEG-WRBTR'    t_bseg-wrbtr,
*             ' ' 'RF05A-NEWBS'  t_bseg-bschl,
*             ' ' 'RF05A-NEWKO'  t_bseg-kunnr,
*             ' ' 'DKACB-FMORE'  'X',
*
*             'X' 'SAPLKACB'  '0002',
*             ' ' 'BDC_OKCODE'  '=ENTE',
*             ' ' 'COBL-GSBER'  t_bseg-gsber,
*             ' ' 'COBL-KOSTL'  t_bseg-kostl,
*
*             'X' 'SAPMF05A'  '0301',
*             ' ' 'BDC_OKCODE'  '=BU',
*             ' ' 'BSEG-WRBTR'  t_bseg-wrbtr,
*             ' ' 'BSEG-ZFBDT'  t_bseg-zfbdt.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

  w_params-dismode = 'N'.
  w_params-updmode = 'S'.
  w_params-nobinpt = 'X'.

  CALL TRANSACTION 'FB01'
     USING i_bdcdata
     OPTIONS FROM w_params
     MESSAGES INTO i_msgcoll.

*INI OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.
  IF sy-subrc EQ 0.

    READ TABLE i_msgcoll
          INTO w_msgcoll
      WITH KEY msgtyp = 'S'
               msgid  = 'F5'
               msgnr  = '312'.

    IF sy-subrc EQ 0.

      w_logcom-docre = w_msgcoll-msgv1.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = w_logcom-docre
        IMPORTING
          output = w_logcom-docre.

    ENDIF.

  ENDIF.

*  COMMIT WORK AND WAIT.
*  WAIT UP TO 3 SECONDS.
*FIN OTCAR18 Jose A. Moreno EXCHNEO_F09 03.07.2010.

ENDFORM.                    " F_CALL_FB01
*&---------------------------------------------------------------------*
*&      Form  FILL_BDCDATA                                             *
*&---------------------------------------------------------------------*
*       Fill BDCDATA to call transactions                              *
*----------------------------------------------------------------------*
*      -->p_start  Screen                                              *
*      -->p_name   Name                                                *
*      -->p_value  Value                                               *
*----------------------------------------------------------------------*
FORM f_fill_bdcdata
     USING p_start TYPE any
           p_name  TYPE any
           p_value TYPE any.

  CLEAR w_bdcdata.

  IF p_start IS INITIAL.

    MOVE p_name  TO w_bdcdata-fnam.
    MOVE p_value TO w_bdcdata-fval.

  ELSE.

    MOVE p_name  TO w_bdcdata-program.
    MOVE p_value TO w_bdcdata-dynpro.
    MOVE p_start TO w_bdcdata-dynbegin.

  ENDIF.

  CONDENSE w_bdcdata-fval.

  APPEND w_bdcdata TO i_bdcdata.

ENDFORM.                    " FILL_BDCDATA

Programa Principal para JOB


*&---------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa            : Z_PROG_OTCCAR18_JOB                            *
* Descripción         : Cancelacion de descuentro FI y creacion de     *
*                       descuento SD.                                  *
* Consultor funcional : Javer Echavez                                  *
* Consultor técnico   : Jose Angel Moreno Nieblas EXCHNEO_F09          *
* Fecha Modificación  : 03.07.2010                                     *
* ID Componente       : OTCAR18                                        *
* Número de Req.      : OTCAR18                                        *
*----------------------------------------------------------------------*

REPORT  z_prog_otccar18_job.

*----------------------------------------------------------------------*
* Declaración de Includes.                                             *
*----------------------------------------------------------------------*
INCLUDE z_prog_otccar18_job_a.

*----------------------------------------------------------------------*
* Evento duranto la pantalla.                                          *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.

  IF NOT b_job IS INITIAL.

    IF p_date IS INITIAL.

      MESSAGE text-003
         TYPE 'S'
         DISPLAY LIKE 'E'.

      STOP.
      LEAVE LIST-PROCESSING.

    ENDIF.

    IF p_time IS INITIAL.

      MESSAGE text-004
         TYPE 'S'
         DISPLAY LIKE 'E'.

      STOP.
      LEAVE LIST-PROCESSING.

    ENDIF.

  ENDIF.

*----------------------------------------------------------------------*
* Evento de inicio del proceso.                                        *
*----------------------------------------------------------------------*
START-OF-SELECTION.

  IF NOT b_job IS INITIAL.

    CONCATENATE sy-repid
                sy-datlo
                sy-timlo
           INTO v_namejob.

    CALL FUNCTION 'JOB_OPEN'
      EXPORTING
        jobname          = v_namejob
        jobclass         = 'A'
      IMPORTING
        jobcount         = v_jobcount
      EXCEPTIONS
        cant_create_job  = 1
        invalid_job_data = 2
        jobname_missing  = 3
        OTHERS           = 4.

    IF sy-subrc NE 0.

      MESSAGE ID sy-msgid
            TYPE sy-msgty
          NUMBER sy-msgno
            WITH sy-msgv1
                 sy-msgv2
                 sy-msgv3
                 sy-msgv4.

    ENDIF.

  ENDIF.

  IF NOT b_job IS INITIAL.

    SUBMIT z_prog_otccar18
      VIA JOB v_namejob
      NUMBER v_jobcount
      WITH p_gjahr = p_gjahr
      WITH s_budat IN s_budat
      WITH s_bukrs IN s_bukrs
      WITH s_kunnr IN s_kunnr
      AND RETURN.

  ELSE.

    SUBMIT z_prog_otccar18
      WITH p_gjahr = p_gjahr
      WITH s_budat IN s_budat
      WITH s_bukrs IN s_bukrs
      WITH s_kunnr IN s_kunnr
      AND RETURN.

  ENDIF.

  IF NOT b_job IS INITIAL.

    CALL FUNCTION 'JOB_CLOSE'
      EXPORTING
        jobcount             = v_jobcount
        jobname              = v_namejob
        sdlstrtdt            = p_date
        sdlstrttm            = p_time
        strtimmed            = ' '
      IMPORTING
        job_was_released     = v_release
      EXCEPTIONS
        cant_start_immediate = 1
        invalid_startdate    = 2
        jobname_missing      = 3
        job_close_failed     = 4
        job_nosteps          = 5
        job_notex            = 6
        lock_failed          = 7
        invalid_target       = 8
        OTHERS               = 9.

    IF sy-subrc EQ 0.

      MESSAGE text-005
         TYPE 'S'.

    ENDIF.

  ENDIF.

Include de Declaraciones para JOB


*&---------------------------------------------------------------------*
*                             TEMPLATE                                 *
*----------------------------------------------------------------------*
* Programa            : Z_PROG_OTCCAR18_JOB_B                          *
* Descripción         : Cancelacion de descuentro FI y creacion de     *
*                       descuento SD.                                  *
* Consultor funcional : Javer Echavez                                  *
* Consultor técnico   : Jose Angel Moreno Nieblas EXCHNEO_F09          *
* Fecha Modificación  : 03.07.2010                                     *
* ID Componente       : OTCAR18                                        *
* Número de Req.      : OTCAR18                                        *
*----------------------------------------------------------------------*
**--------------------------------------------------------------------**
**  T A B L A S                                                       **
**--------------------------------------------------------------------**
TABLES: bkpf,
        bsad.

**--------------------------------------------------------------------**
**  V A R I A B L E S                                                 **
**--------------------------------------------------------------------**
DATA: v_namejob  TYPE btcjob,
      v_jobcount TYPE btcjobcnt,
      v_release  TYPE char01.

**--------------------------------------------------------------------**
** O P C I O N E S   D E   S E L E C C I Ó N   Y   P A R A M E T R O S**
**--------------------------------------------------------------------**
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_kunnr FOR bsad-kunnr,
                s_bukrs FOR bkpf-bukrs  OBLIGATORY.

PARAMETERS:     p_gjahr TYPE bkpf-gjahr OBLIGATORY.

SELECT-OPTIONS: s_budat FOR bkpf-budat  OBLIGATORY.

PARAMETERS: b_job TYPE char01 AS CHECKBOX.

SELECTION-SCREEN: END OF BLOCK b1.

SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS: p_date TYPE tbtcjob-sdlstrtdt,
            p_time TYPE tbtcjob-sdlstrttm.

SELECTION-SCREEN: END OF BLOCK b2.