|
Muchas gracias DUARCO por responder, te comento que aun no puedo implementar la consulta, por favor te envio el codigo que estoy utilizando para que me puedas indicar en donde colocar el codigo.
TABLES:
vbak, vbap, mast, stpo.
*---------------------------------------------*
* S E L E C T I O N S C R E E N *
*---------------------------------------------*
SELECTION-SCREEN: BEGIN OF BLOCK block01 WITH FRAME TITLE title01.
PARAMETERS: so_werks TYPE vbap-werks OBLIGATORY DEFAULT 'PLJA'.
SELECT-OPTIONS: so_vdatu FOR vbak-vdatu.
SELECTION-SCREEN: END OF BLOCK block01.
TYPES: BEGIN OF gty_result ,
vdatu TYPE vbak-vdatu,
vbeln TYPE vbap-vbeln,
werks TYPE vbap-werks,
matnr TYPE mast-matnr,
maktx TYPE makt-maktx,
posnr TYPE stpo-posnr,
idnrk TYPE stpo-idnrk,
END OF gty_result.
*---------------------------------------------*
* D A T A D E C L A R A T I O N *
*---------------------------------------------*
DATA: gt_result TYPE STANDARD TABLE OF gty_result,
gs_result LIKE LINE OF gt_result,
go_alv TYPE REF TO cl_gui_alv_grid,
gs_fcat TYPE lvc_s_fcat,
gt_fcat TYPE lvc_t_fcat.
START-OF-SELECTION.
BREAK-POINT.
SELECT vbak~vdatu
vbap~vbeln vbap~werks
INTO TABLE gt_result
FROM vbap INNER JOIN vbak ON vbap~vbeln = vbak~vbeln
WHERE vdatu IN so_vdatu.
*---------------------------------------------*
* A L V D I S P L A Y *
*---------------------------------------------*
* main program
PERFORM main_prog.
*&---------------------------------------------------------------------*
*& FORM MAIN_PROG
*&---------------------------------------------------------------------*
* The main program
*----------------------------------------------------------------------*
FORM main_prog.
* build field catalog for the ALV grid
PERFORM create_fcat.
* display list
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
it_fieldcat_lvc = gt_fcat
TABLES
t_outtab = gt_result
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. " MAIN_PROG.
*&---------------------------------------------------------------------*
*& FORM CREATE_FCAT
*&---------------------------------------------------------------------*
* Generate field catalog for the ALV
*----------------------------------------------------------------------*
FORM create_fcat.
CLEAR gs_fcat.
gs_fcat-col_pos = 1 .
gs_fcat-fieldname = 'VDATU'.
gs_fcat-tabname = 1.
gs_fcat-datatype = 'DATS'.
gs_fcat-inttype = 'D'.
gs_fcat-domname = 'DATUM'.
gs_fcat-intlen = '000016'.
gs_fcat-coltext = 'FePrefEnt.'.
gs_fcat-outputlen = gs_fcat-intlen.
APPEND gs_fcat TO gt_fcat.
CLEAR gs_fcat.
gs_fcat-col_pos = 2 .
gs_fcat-key = 'X'.
gs_fcat-fieldname = 'VBELN'.
gs_fcat-tabname = 1.
gs_fcat-datatype = 'CHAR'.
gs_fcat-inttype = 'C'.
gs_fcat-domname = 'VBELN'.
gs_fcat-intlen = '000020'.
gs_fcat-coltext = 'Doc.venta'.
gs_fcat-outputlen = gs_fcat-intlen.
APPEND gs_fcat TO gt_fcat.
CLEAR gs_fcat.
gs_fcat-col_pos = 3 .
gs_fcat-fieldname = 'WERKS'.
gs_fcat-tabname = 1.
gs_fcat-datatype = 'CHAR'.
gs_fcat-inttype = 'C'.
gs_fcat-domname = 'WERKS'.
gs_fcat-intlen = '000008'.
gs_fcat-coltext = 'Ce.'.
gs_fcat-outputlen = gs_fcat-intlen.
APPEND gs_fcat TO gt_fcat.
CLEAR gs_fcat.
gs_fcat-col_pos = 4 .
gs_fcat-key = 'MATNR'.
gs_fcat-fieldname = 'MATNR'.
gs_fcat-tabname = 1.
gs_fcat-datatype = 'CHAR'.
gs_fcat-inttype = 'C'.
gs_fcat-domname = 'MATNR'.
gs_fcat-intlen = '000036'.
gs_fcat-coltext = 'Material'.
gs_fcat-outputlen = gs_fcat-intlen.
APPEND gs_fcat TO gt_fcat.
ENDFORM. " CREATE_FCAT.
Gracias por tu valioso tiempo.
|