Core Data Services (CDS)

1
2
3
4
5
6
7
8
9
define view entity ZI_PedidoCliente
  as select from vbak
  association [1..1] to I_Customer as _Cliente
    on $projection.Cliente = _Cliente.Customer
{
  key vbeln as Pedido,
      kunnr as Cliente,
      _Cliente
}

1
2
3
4
SELECT Pedido,
       \_Cliente-CustomerName AS NombreCliente
  FROM ZI_PedidoCliente
  INTO TABLE @DATA(lt_pedidos).

1
2
3
4
5
6
7
8
define view entity ZI_PedidosDesde
  with parameters p_desde : abap.dats
  as select from vbak
{
  key vbeln as Pedido,
      erdat as Fecha
}
where erdat >= $parameters.p_desde

1
2
SELECT * FROM ZI_PedidosDesde( p_desde = @( sy-datum - 30 ) )
  INTO TABLE @DATA(lt_pedidos).

1
2
3
4
5
6
@EndUserText.label: 'Acceso a pedidos'
@MappingRole: true
define role ZI_Pedido {
  grant select on ZI_Pedido
    where ( OrgVentas ) = aspect pfcg_auth( V_VBAK_VKO, VKORG, ACTVT = '03' );
}

1
2
3
4
5
6
7
8
9
10
11
12
13
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Ventas por cliente'
define view entity ZI_VentasCliente
  as select from vbak
{
  key kunnr                                  as Cliente,
      waerk                                  as Moneda,
      count( * )                             as NumPedidos,
      @Semantics.amount.currencyCode: 'Moneda'
      sum( netwr )                           as Total,
      max( erdat )                           as UltimoPedido
}
group by kunnr, waerk

1
2
3
4
5
6
7
8
9
10
11
12
define view entity ZI_PedidoTipo
  as select from vbak
{
  key vbeln                                  as Pedido,
      case auart
        when 'TA' then 'Normal'
        when 'SO' then 'Urgente'
        else 'Otro'
      end                                    as TipoPedido,
      concat_with_space( vkorg, vtweg, 1 )   as Area,
      dats_days_between( erdat, $session.system_date ) as DiasDesdeAlta
}

1
2
@EndUserText.label: 'Estado del viaje'
define type ZEstadoViaje : abap.char( 1 );

1
2
3
4
5
6
DATA lv_estado TYPE zestadoviaje.

SELECT FROM ZI_Viaje
  FIELDS ViajeId
  WHERE Estado = @( CONV zestadoviaje( 'A' ) )
  INTO TABLE @DATA(lt_aceptados).

1
2
3
4
5
extend view entity ZI_Pedido with
{
  vbak.auart as ClasePedido,
  vbak.vtweg as CanalDistribucion
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
CLASS ltc_pedido DEFINITION FINAL FOR TESTING
  DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    CLASS-DATA go_entorno TYPE REF TO if_cds_test_environment.
    CLASS-METHODS class_setup.
    CLASS-METHODS class_teardown.
    METHODS setup.
    METHODS lee_pedidos FOR TESTING.
ENDCLASS.

CLASS ltc_pedido IMPLEMENTATION.
  METHOD class_setup.
    go_entorno = cl_cds_test_environment=>create( i_for_entity = 'ZI_PEDIDO' ).
  ENDMETHOD.

  METHOD class_teardown.
    go_entorno->destroy( ).
  ENDMETHOD.

  METHOD setup.
    go_entorno->clear_doubles( ).
  ENDMETHOD.

  METHOD lee_pedidos.
    DATA lt_vbak TYPE STANDARD TABLE OF vbak WITH EMPTY KEY.
    lt_vbak = VALUE #( ( vbeln = '0000000001' netwr = 100 waerk = 'EUR' )
                       ( vbeln = '0000000002' netwr = 250 waerk = 'EUR' ) ).
    go_entorno->insert_test_data( lt_vbak ).

    SELECT FROM zi_pedido FIELDS Pedido INTO TABLE @DATA(lt_res).

    cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_res ) ).
  ENDMETHOD.
ENDCLASS.