*&---------------------------------------------------------------------*
*& Report  ZP_INVOICE_BAPI
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zp_invoice_bapi.

DATA: it_sbook TYPE TABLE OF sbook,
      wa_sbook LIKE LINE OF it_sbook.

DATA: r_invoice  TYPE REF TO zcl_invoice,
      wa_snvoice TYPE snvoice.

SELECT-OPTIONS: s_car FOR wa_sbook-carrid OBLIGATORY,
                s_con FOR wa_sbook-connid OBLIGATORY,
                s_fld FOR wa_sbook-fldate OBLIGATORY.

START-OF-SELECTION.

  SELECT * FROM sbook INTO TABLE it_sbook
    WHERE carrid IN s_car
      AND connid IN s_con
      AND fldate IN s_fld.

  LOOP AT it_sbook INTO wa_sbook.
    WRITE: / wa_sbook-carrid,
             wa_sbook-connid,
             wa_sbook-fldate,
             wa_sbook-bookid,
             wa_sbook-customid,
             wa_sbook-loccuram,
             wa_sbook-loccurkey.

    HIDE: wa_sbook-carrid,
          wa_sbook-connid,
          wa_sbook-fldate,
          wa_sbook-bookid,
          wa_sbook-customid,
          wa_sbook-loccuram,
          wa_sbook-loccurkey.

  ENDLOOP.

AT LINE-SELECTION.
  CHECK sy-lsind = 1.
  wa_snvoice-carrid   = wa_sbook-carrid.
  wa_snvoice-connid   = wa_sbook-connid.
  wa_snvoice-fldate   = wa_sbook-fldate.
  wa_snvoice-bookid   = wa_sbook-bookid.
  wa_snvoice-amount   = wa_sbook-loccuram.
  wa_snvoice-currency = wa_sbook-loccurkey.

  CREATE OBJECT r_invoice.
  r_invoice->set_invoice_details( im_invoice = wa_snvoice ).
  r_invoice->save( ).

  WRITE: 'Nova invoice criada: ', wa_snvoice-instno.