-
Notifications
You must be signed in to change notification settings - Fork 0
/
ZEJERCICIO11-INCLUDE_TOP
73 lines (64 loc) · 3.28 KB
/
ZEJERCICIO11-INCLUDE_TOP
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
*&---------------------------------------------------------------------*
*& Include Z_ACC_TEST_11_TOP
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Include Z_ACC_TEST_11_TOP
*&---------------------------------------------------------------------*
************************************************************************
* Definición de tablas del sistema *
************************************************************************
TABLES: kna1.
************************************************************************
* Declaracion de ALV *
************************************************************************
TYPE-POOLS: slis.
************************************************************************
* Definición de tipos de datos *
************************************************************************
TYPES: BEGIN OF t_clientes_acc,
kunnr TYPE kunnr,
razon TYPE char35,
END OF t_clientes_acc,
BEGIN OF t_pedidos_acc,
kunnr TYPE kunnr,
pedido TYPE char50,
direccion TYPE char50,
entregado TYPE char1,
END OF t_pedidos_acc,
BEGIN OF t_alv,
kunnr TYPE kunnr,
razon TYPE char35,
pedido TYPE char50,
direccion TYPE char50,
entregado TYPE ZENTREGADO_ACC,
END OF t_alv.
************************************************************************
* Definición de constantes *
************************************************************************
CONSTANTS: dc_x TYPE ZENTREGADO_ACC VALUE 'X'.
************************************************************************
* Definición de variables *
************************************************************************
DATA: v_entregado TYPE char1.
************************************************************************
* Definición de estructuras *
************************************************************************
DATA: wa_clientes_acc TYPE t_clientes_acc,
wa_pedidos_acc TYPE t_pedidos_acc,
wa_alv TYPE t_alv,
wa_layout TYPE slis_layout_alv.
************************************************************************
* Definición de tablas internas *
************************************************************************
DATA: it_clientes_acc TYPE TABLE OF t_clientes_acc,
it_pedidos_acc TYPE TABLE OF t_pedidos_acc,
it_alv TYPE TABLE OF t_alv,
it_fieldcat TYPE slis_t_fieldcat_alv.
************************************************************************
* Definición de pantalla de selección *
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
SELECT-OPTIONS: so_kunnr FOR kna1-kunnr. "OBLIGATORY.
PARAMETERS: rb_listo RADIOBUTTON GROUP g1,
rb_pend RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b2.