zif_po

REPORT zif_po.

TABLES:
  ekko,
  lfa1,
  t161,
  t161t.

TYPES: BEGIN OF type_ekko,
         ebeln TYPE ekko-ebeln,
         aedat TYPE ekko-aedat,
         bukrs TYPE ekko-bukrs,
         lifnr TYPE ekko-lifnr,
         bsart TYPE ekko-bsart,
         frgke TYPE ekko-frgke,
         frggr TYPE ekko-frggr,
         frgsx TYPE ekko-frgsx,
       END OF type_ekko,

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

       BEGIN OF type_t161t,
         spras TYPE t161t-spras,
         bsart TYPE t161t-bsart,
         bstyp TYPE t161t-bstyp,
         batxt TYPE t161t-batxt,
       END OF type_t161t,

       BEGIN OF type_saida,
         status(1)       TYPE c,
         lifnr_name1(45) TYPE c, " Fornecedor
         bsart_bsart(8)  TYPE c, " Pedido
         ebeln           TYPE ekko-ebeln,
         aedat           TYPE ekko-aedat,
         bukrs           TYPE ekko-bukrs,
         lifnr           TYPE ekko-lifnr,
         bsart           TYPE ekko-bsart,
         frgke           TYPE ekko-frgke,
       END OF type_saida.

DATA:
  ti_ekko  TYPE TABLE OF type_ekko,
  ti_lfa1  TYPE TABLE OF type_lfa1,
  ti_t161t TYPE TABLE OF type_t161t,
  ti_saida TYPE TABLE OF type_saida.


SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS: s_ebeln FOR ekko-ebeln,
                s_aedat FOR ekko-aedat.
PARAMETERS:     p_bukrs TYPE ekko-bukrs.
SELECTION-SCREEN END OF BLOCK b1.

INITIALIZATION.

START-OF-SELECTION.

  PERFORM: zf_seleciona_dados.


LOOP AT ti_ekko[] INTO DATA(wa_ekko).
  WRITE: / wa_ekko-bukrs,
           wa_ekko-aedat,
           wa_ekko-bsart,
           wa_ekko-ebeln,
           wa_ekko-frggr,
           wa_ekko-frgke,
           wa_ekko-frgsx,
           wa_ekko-lifnr.
ENDLOOP.



*&---------------------------------------------------------------------*
*&      Form  ZF_SELECIONA_DADOS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM zf_seleciona_dados .
  SELECT ebeln
         lifnr
         bsart
         frgke
     FROM ekko
    INTO TABLE ti_ekko[]
    WHERE ebeln IN s_ebeln
    AND aedat IN s_aedat
    AND bukrs EQ p_bukrs.
ENDFORM.