[oskymoreok]

REPORT zdrynpro_alv_contenedor.

TABLES: zrecep_pesada.

TYPE-POOLS: slis.

DATA: gf_contenedor TYPE REF TO cl_gui_custom_container, "Para crear el contenedor
gr_alv TYPE REF TO cl_gui_alv_grid. "Para crear el objeto ALV

DATA: ls_fcat TYPE slis_fieldcat_alv.
DATA: gt_fieldcat TYPE LVC_T_FCAT.

DATA: gt_datos TYPE TABLE OF zrecep_pesada WITH HEADER LINE,
lv_fecha TYPE dats.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
PARAMETERS: p_cant(2) TYPE c.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.
lv_fecha = sy-datum - p_cant.

SELECT *
FROM zrecep_pesada
INTO TABLE gt_datos
WHERE datum_bal EQ lv_fecha
AND werks EQ 'CE05'.
SORT gt_datos BY num_op_centro.


************************************************************************
REFRESH gt_fieldcat.

PERFORM f_agregarcampo USING 'GT_DATOS' 'WERKS' 'CHAR' 4 'Centro' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'DATUM_BAL' 'DATS' 8 'Fecha' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'CPUTM' 'TIMS' 6 'Hora' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'NUM_OP_CENTRO' 'NUMC' 6 'N op' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'KUNNR ' 'CHAR' 10 'Cliente' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'PATENTE' 'CHAR' 4 'Patente' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'MATNR' 'CHAR' 18 'Material' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'BRUTO' 'QUAN' 15 'Bruto' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'TARA' 'QUAN' 15 'Tara' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'NETO' 'QUAN' 15 'Neto' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'NUMTIC' 'CHAR' 10 'N tic' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'OBSERVACIONES' 'CHAR' 10 'Obser' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'COD_PLANTA_REC' 'CHAR' 4 'Codg' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'NUM_OP_SAP' 'CHAR' 8 'N Sap' '' '' ''.
PERFORM f_agregarcampo USING 'GT_DATOS' 'BZA_BALANCERO' 'CHAR' 10 'balzro' '' '' ''.
************************************************************************

CALL SCREEN 0100.

*----------------------------------------------------------------------*
* MODULE LIST OUTPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE list OUTPUT.

CREATE OBJECT gf_contenedor
EXPORTING
container_name = 'GF_CONTENEDOR'.

CREATE OBJECT gr_alv
EXPORTING
i_parent = gf_contenedor .

CALL METHOD gr_alv->set_table_for_first_display
CHANGING
it_outtab = gt_datos[]
it_fieldcatalog = gt_fieldcat.

ENDMODULE.

INCLUDE ZDRYNPRO_ALV_CONTENEDOR_F_AF01.