88
88
88
Aprende ABAP/4 con ejercicios prácticos
Marlon Falcón Hernández www.marlonfalcon.c www.marlonfalcon.cll
88
DERECHOS DEL AUTOR AUTOR
Aprende ABAP/4 con ejercicios prácticos. Copyright © 2015 by Marlon Falcón Hernández
Todos los derechos reser!dos. "ing#n! p!rte de este tr!b!jo p#ede repr reprod od#c #cir irse se o p#ed p#edee tr!n tr!ns$ s$it itir irse se en c#!l c#!l%# %#ie ierr &or$ &or$#l #l!r !rio io o por c#!l%# c#!l%#ier ier $edio' $edio' electr electr(ni (nico co o $ecáni $ecánico' co' incl#y incl#yendo endo &otoco &otocopi! pi!do' do' gr!b gr!b!d !do o o por por c#!l c#!l%# %#ie ierr !l$! !l$!ce cen! n!$i $ien ento to de in&o in&or$ r$!c !ci( i(n' n' sin sin el per$iso escrito !nterior del d#e)o de los derechos de propied!d liter!ri! y el p#blic!dor. p#blic!dor.
*+B", PENDIENTE A PUBLICACION
P!r! $ás in&or$!ci(n por &!or cont!cte con el !#tor de l! obr!Marlon Falcón Hernández $edi!nte los sig#ientes correos-
cont!cto$!rlon&!lcon.cl &!lconso&t.dg$!il.co$
Diseo de Por!ada"
!rlon !lc(n ernánde3 Person!je de port!d!- dise)!do por reepi
88
Dedicatoria Dedicatoria
A mi hijo Marlon con todo el Amor del mundo. mundo.
88
88
Índice I!"#$%&&I# ..............................................11 &API!%'# ( I!"#$%&&I) A *AP +"P. .........12 ¿QUÉ ES UN ERP?.....................................................12 ¿CUÁLES SON LOS PRINCIPALES ERP?..........................12 ¿QUÉ ES SAP?...........................................................13 ¿QUÉ ES ABAP/4?.....................................................13 ¿QUÉ ES TIPOS DE PROGRAMAS SE PUEDEN HACER EN ABAP?......................................................................14 PRIMEROS PASOS PARA CONOCER LA INTERFACE DE SAP ECC.........................................................................14 CONOCIENDO LA INTERFACE DE SAP...........................15 &API!%'# , P"#-"AMA&I) B*I&A + ABAP. ...................................................................... 16
E JERCICIO N°1 - HOLA MUNDO EN ABAP/4. SE!"# ....16 E JERCICIO N°$ - COMENTARIOS..................................18 E JERCICIO N°! - IMPRIMIR %ARIAS L&NEAS CON 'RITE. .................................................................................19 E JERCICIO N°4 - TIPOS DE DATOS EN ABAP..................19
E JERCICIO N°( - A SIGNACI)N DE %ALOR A UNA %ARIABLE .................................................................................20 E JERCICIO N°* - CONSTANTES....................................20
E JERCICIO N°+ - % ARIABLES DEL SISTEMA . IMPRIMIR LA FECHA .......................................................................21 E JERCICIO N°" - % ARIABLES DEL SISTEMA II................21 E JERCICIO N°, - % ARIABLE S-SUBRC........................21 E JERCICIO N°1 - OPERACIONES CON CARACTERES.......22 E JERCICIO N°11 - E JEMPLO DE USO DE S-SUBRC......24 E JERCICIO N°1$ - E JEMPLO DE USO DE L&NEAS TIPO TABLA ........................................................................24 E JERCICIO N°1! - E JEMPLO REDONDEO %ARIOS............25 E JERCICIO N°14 - OPERACIONES MATEMÁTICA ..............25 E JERCICIO N°1( - ABAP D EBUGER ..............................26 &API!%'# #P+"A$#"+* $+ &#$I&I). .....28 E JERCICIO N°1* - SENTENCIA CHEC ........................28
88
E JERCICIO N°1+ - SENTENCIA IF ..ELSE.....................28 E JERCICIO N°1"- SENTENCIA CASE............................29 E JERCICIO N°1,- USANDO EL OPERADOR 0 DIFERENTE. .................................................................................30 E JERCICIO N°$- USANDO EL BET'EEN...................30
&API!%'# B%&'+*.......................................31 E JERCICIO N°$1 - BUCLE DO.....................................31 E JERCICIO N°$$ - BUCLE DO CON E2IT.....................31 E JERCICIO N°$! - BUCLE 'HILE................................31 &API!%'# 4 PA"M+!"#* 0 *%B"%!IA*. .....33 E JERCICIO N°$4 - P ARÁMETROS DE ENTRADAS.............33 E JERCICIO N°$( - SUBRUTINAS INTERNAS...................33 E JERCICIO N°$* - SUBRUTINAS INTERNAS CON PARÁMETROS..............................................................33 E JERCICIO N°$+ - SUBRUTINAS E2TERNA CON PARÁMETROS..............................................................34 E JERCICIO N°$" - PLANTILLA DE ABAP/4....................34 &API!%'# 1 !AB'A* I!+"A*. .....................36 E JERCICIO N°$, - T ABLAS INTERNAS...........................36 E JERCICIO N°! - T ABLAS INTERNAS ESTRUCTURA GENERAL...................................................................36 E JERCICIO N°!1 - T ABLAS INTERNAS CON CABECERA ....37 E JERCICIO N°!$ - T ABLAS INTERNAS CONSULTA DE USUARIOS ..................................................................38 E JERCICIO N°!! - T ABLA INTERNA SIMPLE...................39 E JERCICIO N°!4 - T ABLAS INTERNAS CON Á REAS DE TRABAJO....................................................................39 E JERCICIO N°!( - T ABLAS INTERNAS CON FIELDSMBOLS................................................................40 &API!%'# 1 $I&&I#A"I# $+ $A!#* .............42 E JERCICIO N°!* - ENTRANDO AL DD SE11#..............42 E JERCICIO N°!+ - T ABLA DE UNA TRANSACCI)N...........44 E JERCICIO N°!" - CONSULTA PARA UNA TABLA DE DD...46 E JERCICIO N°!, - R EPORTE A%L CON UNA TABLA DEL DD. .................................................................................46
88
E JERCICIO N°4 - FULL R EPORTE A%L DE UNA TABLA ...47 E JERCICIO N°41 - CREAR UN DOMINIO........................49 E JERCICIO N°4$ - CREAR UN ELEMENTO DE DATO........51 E JERCICIO N°4! - CREAR TABLA TRANSPARENTE SE11#. .................................................................................53
E JERCICIO N°44 - LLENAR UNA TABLA DE DATOS SE1*#. .................................................................................55
&API!%'# 2 #P+ *3' &#*%'!A* ABAP .....56 INTRODUCCI)N A OPEN SQL.....................................56 E JERCICIO N°4( - CONSULTA BÁSICA DIRECTA ..............56 E JERCICIO N°4* - CONSULTA BÁSICA CON TI...............57 E JERCICIO N°4+ - CONSULTA PRIMERAS 1 FILAS.....57 E JERCICIO N°4" - CONSULTA CONDICI)N...................57 E JERCICIO N°4, - MOSTRAR PRIMERA FILA EN UNA TABLA .................................................................................58 E JERCICIO N°( - SELECCIONAMOS TODOS .................58 E JERCICIO N°(1 - SELECCIONAMOS UN SOLO REGISTRO 58 E JERCICIO N°($ - M Á2IMO3 M&NIMO3 C ANTIDAD..........59 E JERCICIO N°(! - SUMA PROMEDIO. ....................59
E JERCICIO N°(4 - BUSCANDO CADENAS QUE CONTENGAN OTRAS.......................................................................60 E JERCICIO N°(( - BUSCANDO CADENAS CON LISTAS. IN60 E JERCICIO N°(* - SELECCIONANDO UN RANGO BET'EEN................................................................60 E JERCICIO N°(+- MOSTRAR TABLA ORDENADA .............61 E JERCICIO N°(" - MOSTRAR TODOS LOS ICONOS EN SAP .................................................................................61 E JERCICIO N°(,- CONSULTA A DOS TABLAS EN SAP.....61
&API!%'# 5 AMP'IA&I#+* 0 #!A* .............63 E JERCICIO N°* - HOLA MUNDO EN ABAP/4...............63 &API!%'# 6 P"#-"AMA&I) #"I+!A$# A #B7+!#*.........................................................64 ¿QUÉ ES LA PROGRAMACI)N ORIENTADO A OBJETOS ?....64 E JERCICIO N°*1 - HOLA MUNDO DE POO....................64 E JERCICIO N°*$ - POO CON MÉTODOS PARÁMETROS..65
88
E JERCICIO N°*! - POO HERENCIA DE CLASES..............66 &API!%'# 6 P"#-"AMA&I) $+ $I'#-#* ...68 E JERCICIO N°*4- MENSAJES EN ABAP........................68 E JERCICIO N°*( - CREANDO UNA TRANSACCI)N EN SAP SE,!#......................................................................70 E JERCICIO N°** - COLORES EN UN REPORTE .............73 E JERCICIO N°*+ - % ARIOS COLORES EN UN REPORTE .73 &API!%'# 8 $0P"#......................................74 INTRODUCCI)N A UNA DNPRO................................74 E JERCICIO N°*"- CREACI)N DE UNA DNPRO SE"# 74 &API!%'# (9 BA!&H IP%!* .........................77 INTRODUCCI)N A UNA B ATCH INPUTS SE!(...............77 &API!%'# (( F#"M%'A"I#*. ........................78 TIPOS DE FORMULARIOS EN SAP.................................78 E JERCICIO N°*, - MOSTRAR UN FORMULARIO SAPSCRIPT SE+1#....................................................78 E JERCICIO N°+ - C OPIAR UN FORMULARIO SAPSCRIPT. .................................................................................80
E JERCICIO N°+1 - CREAR UN FORMULARIO CON SAPSCRIPT................................................................81 E JERCICIO N°(, - E JECUTAR UN FORM SAPSCRIPT.. .85 &API!%'# (, #B7+&! A:I-A!#" .................86 INTRODUCCI)N AL OBJECT N A%IGATOR SE"...............86 E JERCICIO N°+! - CREAR GRUPO DE FUNCIONES..........86 &API!%'# ( I$#&* ;I!+"M+$IA!+ $#&%M+!<...................................................87 INTRODUCCI)N A IDOCS.............................................87 E JERCICIO N°+4 - HOLA MUNDO EN ABAP/4...............87 A-"A$+&IMI+!#*.......................................88 !"A*A&&I#+* M* %!I'I=A$A* + *AP. ....89 :A"IAB'+* $+' *I*!+MA ...............................91 &#MA$# $+ 'A BA""A ................................96 !+&#'#-ÍA* $+ I!+"FA&+* %!I'I=A$A* + *AP................................................................. 96
88
>#"?B+&H ABAP.........................................96
88
I!"#$%&&I# E567 89:;< 756= >957@>< >7 6@8 <;@ 7 < 77;99<5 ;=69<5 @5 <<97>< @>@ @;67 >7 8@ ;<;@@9K ABAP/43 < 797@ < 67<;@5 >7 ;<;@@9K 59< 7 < 77<5 @5<5 >7 :7:7 @ 757=><67 6<>< 8< 7 77596@5 @;@ 999@;67 7 78 >< >7 8@ ;<;@@9K. E5 9<;6@67 7 @8 @89@; @>@ 8@57 8@ ;796@5 @@5 8<5 77;99<5 ;<756<5 7 78 89:;<. E8 978 @76@;= @ 7>9>@5 7 @88@5 @@@>< 7 8<5 77;99<5. T;@6@ 597;7 >7 887@;8< <69< <;7 <5 ;<7>9976<5 59 < 8< ;@69@5 57 67 <89>@;@ @ 597;7 8< <>;=5 ;7;75@;. 8< =5 9<;6@67 ;@69@ <3 < 6<>@ 6 <86@> @;@ 7 7>@5 76;@; 59 ;<:87@5 @8 >< 8@:<;@8 >7 ABAP/4 @;@ SAP.
88
&API!%'# ( Introd@cción a *AP +"P. 3@ es @n +"PC U +"P 75 59567@ 5<6@;7 9<;=69<# >7 8@9@9K >7 ;7;5<5 7;75@;9@8753 5 <:;7 977 >7 8@5 598@5 7 I875 +67;;957 " 75<;7 P8@9. L<5 +"P 7569<@ 7 967;@ 8<5 ;<75<5 >7 8@5 7;75@5 7;9697>< 677; 9<;@9K @6@89@>@ 57;@ @;@ 6<@ >7 >7959<75. U +"P <; 8< 77;@8 @>9956;@ <;@53 76@53 ;<>9K3 <6@:989>@> 8<569@. L<5 <:769<5 ;99@875 >7 @897; ERP 5< •
•
M@677; 9<;@9K @6@89@>@ >7 8@ 7;75@ < @75< 57;< @;@ 8<5 5@;9<5. D9599; 8<5 697< >7 7569K 7;75@;9@8 <699@>< 6<><5 8<5 @5<5.
&@áles son los principales +"PC E 78 7;@>< 79567 @;9<5 ERP 76;7 8<5 =5 <<9><5 57 776;@ *AP +"P / *AP +&& / *AP " - E5 < >7 8<5 89>7;75 7 8@ 8956@ >7 8<5 ERP3 756= 7<@>< @ ;@>75 7;75@53 @7 7>7 57; 98776@>< 7 7;75@5 >7 @897; 6@@<3 6977 @ ;@ 75@8@:989>@> @ 7 6;@7 ABAP/4 << 87@7 >7 ;<;@@9K 7 87 7;967 <>7; ;<;@@; >76;< >78 59567@ @897; 7759>@> >7 8@ 7;75@.
88
*AP B%*I+** #+ - E5 < >7 8<5 ERP =5 5@><5 7 8@5 77@5 7>9@@5 7;75@53 7 ;7@>< 7 I5;@78 <567;9<;767 7 @>9;9>< <; SAP. Microsoft $Dnamics - E5 < >7 8<5 ERP =5 5@><5 7 8@5 77@5 7;75@5 ;<97>@> >7 M9;<5<6 76;7 55 76@@5 756@ 8@ ;@ <@69:989>@> < @;9<5 >95<5969<5. <;77 @6;< ;<>6<5 ERP M9;<5<6 D@95 A23 M9;<5<6 D@95 GP3 M9;<5<6 D@95 NA% M9;<5<6 D@95 SL. #doo ;conocido anteriormente como #pen+"P D anteriormente como !inD+"P< - E5 59567@ >7 ERP 967;@>< >7 K>9< @:97;6< @6@8767 ;<>9>< <; 8@ 7;75@ :78@ O><< S.A. E5 ;<>6< >7 K>9< @:97;6<. #racle +B@siness *@ite - E5 < >7 8<5 ERP <6767 @@8@>< <; ORACLE < 7;67 7569< >7 :@57 >7 >@6<5. 3@ es *APC SAP 75 @ 7;75@ @87@@ 7 7 >@>@ 7 9< >7 1,+$ 8@5 598@5 SAP 599@ S9567@53 A89@9<75 P;<>6<5 7 P;<75@976< >7 D@6<5 . E 1,+! SAP 797@ < 8@ 7;59K SAP R/1 < @;< >75>7 76<75 >7 7<;@; 55 59567@5 @56@ <7;69;57 8< 7 75 < 7 >@ 78 8>7; >7 8<5 5<6@;7 @;@ 7;75@5 @ 978 >9@8. S7 @88@ 7 + >7 8@5 ;@>75 7;75@5 7 78 >< 6989@ 8@5 @89@9<75 >7 SAP.
88
3@ es ABAP/4C ABAP/4 75 87@7 >7 ;<;@@9K >7 @;6@ 77;@9K3 5 <:;7 977 >7 8@5 598@5 7 I875 A>@7> B59755 A89@69< P;<;@9 . E5 ;<97>@> >7 SAP 5<8< 59;7 @;@ ;<;@@; >76;< >78 S9567@ SAP ECC 8@5 @89@9<75 775@;9@5 < 7<;@5 7 8@ 7;75@ 775967. ABAP/4 7 >75@;;<88@>< @;@ SAP R/$ 7 8<5 @<5 " < >7< >7 >75@;;<88@;57 @56@ <7;69;57 7 @ <6767 7;;@976@. 3@ es tipos de proEramas se p@eden acer en ABAPC ABAP/4 75 87@7 >7 ;<;@@9K 7 7;967 @6;< ;99@875 ;<5 >7 ;<;@@5 1- R7<;675 8=59<5 7 967;@69<5. $- P;<;@@9K >7 >9@8<<. !- B@6 96 4- P;<;@@5 >7 <9@9<75 Primeros pasos para conocer la interface de *AP +&& *AP +&& 7 75 8@ 7;59K 7 6989@;7<5 7 7567 89:;< @;@ @;7>7; ABAP/4 75 ;<;@@ 89767 57;9><;3 57 956@8@ 7 57;9><; >7 9><5 < @ :@57 >7 >@6<5 >7 O;@875. A 7567 57;9><; 57 87 956@8@ >97;7675 @>@675 7 < 5< =5 7 756;6;@5 >7 >@6<5 ;<7>9976< >7 @ 7;75@. A8<5 @>@675 97 ;7956@8@><5 7 SAP << 5< Mandante 999 E567 @>@67 75 78 >7 ;77;79@ 7 78 59567@ < 7>7 :<;;@;57 < @:9@; @>@ 7 V83 < <6977 9W >@6< >7 P@;@76;9@9K.
88
Mandante 99( E567 @>@67 75 78 >7 778< 57 7>7 :<;;@; < 7899@; 8@ >97;79@ < 75 7 8< @:9@<5 <5<6;<5. Mandante 922 E567 75 78 M@>@67 >78 57;99< E@;8'@6 7567 @>@67 < 7>7 57; :<;;@>< 9 @:9@>< 75 6989@>< @;@ >7679K >7 ;<:87@5 <5 @;@69@ 8@ ;<679K >7 756;<5 >@6<5 @ 7 59 79567 ;<:87@ 7 SAP 8@ 7;75@ 57 <76@;= @8 ** < 67>;= @75< @ 756;<5 >@6<5 7;75@;9@875. L<5 <6;<5 @>@675 57 7>7 ;7@; < 7>7 79; 956@8@>< << 75 78 @5< >7 78 @>@67 " 7 78 SAP IDES 7 <; 5 598@5 7 I875 I67;76 D7<56;@69< @> E@8@69< S567 7 75 78 SAP >7 ;7:@ 7 6989@ SAP @;@ 8<5 <586<;75 7 77596@ 76;7@976<. &onociendo la interface de *AP SAP ECC 75 ERP 7 6977 7W 8@67;@8 ><>7 57 776;@ =;:<8 < 6<>@5 8@5 6;@5@9<75 <;@9@>@5 <; K>8<5 < @ >75;99K 6@6< >78 K>9< << >7 8@ 9K 7 776@ @>@ @ >7 756@5 6;@5@9<75.
88
&API!%'# , ProEramación Gásica en ABAP. +jercicio ( Hola M@ndo en ABAP/4. ;*+6< E 7567 756;< ;97; ;<;@@ 67 757@;7 << ;7@; >75@;;<88< 3 5<8@767 6989@;7<5 8@5 9K >7 9;99; 7 @6@88@. E6;@<5 @ 8@ 6;@5@9K SE!" 7 ;<;@@ <8<@<5 zolam@ndo 6@8 << 756;< 7 8@ 599767 9@7.
88
E 8@ ;K9@ 76@@ 7 78 668< 87 <8<@<5 @ >75;99K <;6@ @8 ;<;@@ 85@<5 C;7@;.
E 8@ ;K9@ 76@@ 85@<5 78 :<6K O:76< L<@8 6@8 << 57 756;@.
88
S9 6<>< 8< 99567 <;;76@767 7;@5 78 7>96<; ABAP ><>7 <8<@;7<5 78 599767 K>9< REPORT Z_HOLA_MUNDO. WRITE: 'HOLA MUNDO'.
U@ 7 7 75;9:9<5 78 K>9< 7 78 7>96<; ABAP @;>@<5 8<5 @:9<5 7 78 7W 57;9<;3 @69@<5 776@<5 8@ @89@9K. N<5 5@8>;= 8@ 599767
88
76@@3 ><>7 7;7<5 78 75@7 7 @@:@<5 >7 6787@; 7 78 K>9<.
E 756@ 8@575 @;7>9<5 @ ;7@; ;<;@@ 3 6@:9V @;7>9<5 7 8<5 ;<;@@5 7 @:@ <97@ < 8@ @8@:;@ ;757;@>@ "+P#"! 7 57 6989@ 8@ @8@:;@ ;757;@>@ >"I!+ @;@ 9;99; 676<3 7 6<>@5 8@5 87@5 7 ABAP/4 67;9@ < 6< 7 59 7;7<5 9;99; @ @>7@ >7 @;@67;75 6989@<5 <988@5 59875. +jercicio , &omentarios. E ABAP/4 8<5 <76@;9<5 57 7>7 @7; >7 ><5 <;@5. S9 57 @7 <76@;9< >75>7 78 999< >78 ;<;@@ 57 6989@ X 59 78 <76@;9< 797@ >76;< >78 676< 57 6989@5 . REPORT Z_COMENTARIO . *Comentario en ABAP WRITE: 'HOLA MUNDO'. "Otro comentario en ABAP
88
+jercicio Imprimir Jarias lKneas con >"I!+. P7>7 57; 7 7 @8W ;<;@@ 77596@;@5 9;99; @;9@5 87@5 59 677; 7 ;7769; 8@ @8@:;@ 'RITE @;9@5 7753 @;@ 75< 57 6989@ 8@ <@ @;@ 57@;@; 8@5 57679@5 << 57 756;@ 7 78 778< !IMPRIMIR!!# . REPORT Z_IMPRIMIR_3_A. WRITE: 'TE$TO %&'. WRITE: 'TE$TO %&'. WRITE: 'TE$TO %'. REPORT Z_IMPRIMIR_3_B. WRITE: 'TE$TO %&'( 'TE$TO %&'( 'TE$TO %'.
+jercicio 4 !ipos de datos en ABAP. E ABAP/4 677<5 8<5 5997675 69<5 >7 >@6<5 ;9@;9<5 T9<
D75;99K
L<96> <; >776<
L<96> =9@
%@8<; 999@8
C
A8@V;9<5
1
1*((!(
SPACE
D
F7@D@67#
"
"
Y Y
F
F8<6@67F8<@6#
"
"
.
I
E67;< I677;#
4
4
N
NV;9<
1
1-*((!(
Y...Y
P
E@76@><5
"
1-1*
88
T
H<;@T97#
*
*
YY
2
H7@>79@875
1
1-*((!(
2YY
REPORT Z_DATOS_01. * Dec)aramo )o +ato en ABAP con DATA. DATA: MiEntero%& T,PE I( DATA: MiEntero% T,PE I( DATA: MiEntero% T,PE I -ALUE &. " Le co)ocamo & * Aora im/rimiremo WRITE: 'EL NUMERO :' ( MiEntero%.
+jercicio 1 AsiEnación de Jalor a @na JariaGle E9567 ><5 <;@5 @;@ @59@; @ @8<; @ @ @;9@:87 7 ABAP3 <; @59@9K 5987 < >9;76@. REPORT Z_ASIGNACION_SIMPLE. * Dec)aramo )a 0aria#)e DATA: MiEntero%& T,PE I. * Le ai1namo 2n 0a)or MiEntero%& 3 &. * Im/rimimo e) 0a)or WRITE: MiEntero%&.
M7>9@67 8@ 57679@ M#:+ REPORT Z_ASIGNACION_MOVE. * Dec)aramo )a 0aria#)e DATA: MiEntero%& T,PE I -ALUE &( MiEntero% T,PE I. * Le ai1namo 2n 0a)or MO-E MiEntero%& TO MiEntero%. * Im/rimimo e) 0a)or WRITE: MiEntero%.
88
+jercicio 2 &onstantes L@5 <56@675 5< @;9@:875 7 @ @:9@ 5 @8<; 7 6<>@ 8@ 779K >78 ;<;@@3 8@ >799K >7 %ALUE 75 <:89@6<;9<. REPORT Z_CONSTANTES . * Dec)aramo 2na contante CON4TANT4: MONEDA56 T,PE C -ALUE 'EUR'. WRITE: MONEDA.
+jercicio 5 :ariaGles del sistema. Imprimir la feca. E8 59567@ >77 <6< >7 @;9@:875 7 5< W69875 @;@ 8<5 ;<;@@><;75 ABAP/4 76;7 788@5 57 776;@ S -DATUM 7 <5 9<;@ >7 8@ 7@ >78 59567@. S9 97;75 7; <6;@5 @;9@:875 ;795@ @8 @8 >78 89:;< 8@ 8956@ >7 8@5 =5 6989@>@. REPORT Z_ECHA. * Im/rimimo e) 0a)or WRITE: S!"DATUM.
+jercicio 6 :ariaGles del sistema II. E 7567 77;99< 7;7<5 <6;@5 @;9@:875 >78 59567@5 6989@>@5. REPORT ,TE$T. DATA TEMP T,PE I. WRITE: 7'EL MANDANTE:'(4,8MANDT. WRITE: 7'U4UARIO:'(4,8UNAME. WRITE: 7'IDIOMA:'(4,8LAN9U. WRITE: 7'HORA LOCAL:'(4,8UEIT. WRITE: 7'TRAN4ACCION:'(4,8TCODE. WRITE: 7'PRO9RAMA ACTUAL:'(4,8REPID. DO &% TIME4. TEMP 3 TEMP &. " SY-INDEX guarda el contador del LOOP
I; 4,8INDE$ 3 <.
88
WRITE: 7'E <'. EL4E. WRITE: 7 4,8INDE$. ENDI;. ENDDO.
+jercicio 8 :ariaGle *0*%B"& I>9@ 7 8@ 57679@ @67;9<; @ 8@ 88@@>@ >7 756@ @;9@:87 57 776< < <. REPORT Z_S!"SUBRC. * 4e)eccionamo )a tranacci=n 4E&& 4ELECT 4IN9LE * tct WHERE tco+e 3 '4E&&'> I; 4,84UBRC 3 %. WRITE '4e enc2entra )a tranacci=n'. ENDI;.
+jercicio (9 #peraciones con caracteres. E ABAP @ 775 77596@<5 <>9@; 8@5 5@89>@5 >7 >@6<5 <;@67@>< 8@5 @>7@5 >7 676<5 756@5 <7;@9<75 <5 @>@;@ < 75<. &#&A!+A!+L E5 6989@>< @;@ 9;/<@67@; @<5 @8@V;9<. U 778< 75 59 7;7<5 9; 8@5 @;9@:875 @;9@:8713 @;9@:87$ 7 8@ @;9@:87 @;9@:87. REPORT Z_OPERACIONES_CONCATENATE . CONCATENATE m?0aria#)e%& m?0aria#)e% INTO m?0aria#)e 4EPARATED B, '8'. * Im/rimimo e) 0a)or WRITE: #$%&'(&)*+.
&#$+*+L E899@ 6<><5 8<5 75@9<5 7 :8@< 7 @ @>7@ 987>< 8<5 75@9<5 @ 8@ 997;>@. REPORT
Z_OPERACIONES_CONDENSE.
88
DATA: -ARIABLE T,PE C -ALUE ' E U R'. CONDEN4E -ARIABLE. * Im/rimimo e) 0a)or WRITE: -ARIABLE. * E) 0a)or @2e im/rimir er: EUR
"+P'A&+L S7 6989@ @;@ ;78@@; @ @;67 >7 8@ @>7@ <; <6;@. REPORT Z_OPERACIONES_REMPLACE. DATA: -ARIABLE& T,PE C -ALUE 'MI NOMBRE E4 M'. REMPLACE 'M' WITH 'MARLON' INTO -ARIABLE&. * Im/rimimo e) 0a)or WRITE: -ARIABLE&.
*+A"&HL S7 6989@ @;@ :5@; @ @>7@ >76;< >7 <6;@ @>7@3 59 7;7<5 :5@; 78 <:;7 :@ >76;< >7 @ <;@9K 59 8@ 9K 776;@ 78 @8<; >7<87;= 8@ @;9@:87 >78 59567@ S-SUBRC 9@8 3 7 @5< 7 < 8@ 776;7 >7<87;= 4. REPORT Z_OPERACIONES_SEARCH . DATA: ORACION5<%6 -ALUE 'CUB A E4 LINDA'. 4EARCH ORACION ;OR 'CUB*' WRITE: 74,84UBRC. "Im/rimir % /or@2e eite. 4EARCH ORACION ;OR 'CUBA' ABBRE-IATED. WRITE: 74,84UBRC. "%:I1nora e) e/acio 0aco. 4EARCH ORACION ;OR 'CUBA' 4TARTIN9 AT . WRITE: 74,84UBRC. ":Inicia en )a /oici=n .
*HIF!L S7 6989@ @;@ >758@@; <6< >7 @;@67;75 7899@>< 8<5 7 < 57 775967. REPORT Z_OPERACIONES_SHIT. DATA: -ARIABLE T,PE C -ALUE 'MI NOMBRE E4 M'. 4HI;T -ARIABLE B, PLACE * Im/rimimo e) 0a)or WRITE: -ARIABLE. -E*(#(&'& */ 3 '(#+'/.
88
*P'I!L S7 6989@ @;@ @;69; @ @>7@ 7 77@5 @;675. REPORT Z_OPERACIONES_SPLIT. DATA: -ARIABLE& T,PE C -ALUE 'MI(NOMBRE(M'. 4PLIT -ARIABLE& AT '(' INTO -ARIABLE&&( -ARIABLE&( -ARIABLE&. * Im/rimimo e) 0a)or WRITE: -ARIABLE&&.
!"A*'A!+L S7 6989@ @;@ <7;69; 676<5 @ @W58@5 REPORT Z_OPERACIONES_SPLIT. DATA: -ARIABLE& T,PE C -ALUE 'o)a m2n+o'. TRAN4LATE -ARIABLE& TO UPPER CA4E. * Im/rimimo e) 0a)or WRITE: -ARIABLE&&.
*!"'+L D767;9@ 78 6@@< >7 @ @>7@. REPORT ,TE$T. DATA: A T,PE 4TRIN9 -ALUE 'HOLA MUNDO'. DATA M, T,PE I. M, 3 4TRLEN5 A 6. WRITE: 7 M,.
+jercicio (( +jemplo de @so de *0*%B"& E 7567 778< 7;7<5 >97;7675 <;@5 >7 9<;@; 78 756@>< >7 *0*%B"& 8@ @;9@:87 967;@ >78 59567@ 7 57 6989@ @;@ 77@; 59 57 776@ <;;76@767 V6<>< < 9K. REPORT Z_S!"SUBRC. * Im/rimir 2n teto i )a con+ici=n e a)a i ?82#rc FG %. WRITE:7 'No e encontr='. en+i. * Motrar 2n menae i )a con+ici=n e a)a. i ?82#rc FG %.
88
MESSAGE No e encontr= T!PE I. en+i.
+jercicio (, +jemplo de @so de lKneas tipo taGla. E 7567 778< 7;7<5 K< 5@; 78 <@>< 967;< sy-vline /ara crear co)2mna im/)e @2e no
ir0en
/ara
+e)imitar
2n
teto
en
2n
re/orte. REPORT COLOR. DATA i T,PE I -ALUE %. WHILE i F . WRITE: 7'Co)2mna &'( ?80)ine( 'Co)2mna '( ?80)ine. i 3 i &. ENDWHILE.
+jercicio ( +jemplo redondeo Jarios. P@;@ ;7><>7@; 7;< 677<5 @;9@5 <9<75 << 57 756;@ @ <69@9K.
88
REPORT TRAN4A. DATA N T,PE P DECIMAL4 . DATA M T,PE P DECIMAL4 -ALUE '8&&.<&<&<'. * ABS(Absoluto) !!!
N 3 AB45 M 6. WRITE: 'AB4: '( N. * SI#N(S$gno) %&&-
N 3 4I9N5 M 6. WRITE: 7 '4I9N: '( N. * 'EIL(edondeo arr$ba) %%&&-
N 3 CEIL5 M 6. WRITE: 7 'CEIL: '( N. * LOO(edondeo abao) %+&&-
N 3 ;LOOR5 M 6. WRITE: 7 ';LOOR:'( N. * ,N'(Parte entera) %%&&- (.arte entera)
N 3 TRUNC5 M 6. WRITE: 7 'TRUNC:'( N. * A'(Parte dec$/al) &+!-
N 3 ;RAC5 M 6. WRITE: 7 ';RAC: '( N.
+jercicio (4 #peraciones matemática. A8@5 >7 8@5 <7;@9<75 @67=69@5 5@>@5 7 ABAP.
=5
REPORT OPERACIONE4. DATA: A T,PE ; -ALUE &. DATA: B T,PE ; -ALUE &&. DATA: R T,PE ;. R 3 A B. WRITE 7: R. " Su/a R 3 A 8 B. WRITE 7: R. " esta R 3 A 7 B. WRITE 7: R. " D$0$s$on R 3 A * B. WRITE 7: R. " 1ult$.l$cac$on R 3 A DI- B. WRITE 7: R. " D$0$s$on Entera R 3 4IN5 A 6. WRITE 7: R. " Seno R 3 CO45 B 6. WRITE 7: R. " 'oseno R 3 4JRT5 B 6. WRITE 7: R. " a$2 R 3 LO95 B 6. WRITE 7: R. " logar$t/o ne.er$ano R 3 LO9&%5 B 6. WRITE 7: R. " logar$t/o %&
+jercicio (1 ABAP $eG@Eer. S9 7;7<5 ;795@; 78 K>9< @5< @ @5< >78 ;<;@@ @;@ 7; 7 @8<;75 6<@ 8@5 @;9@:875 6989@<5 78 ABAP D7:7; 7 75 @ 7;;@976@ >7 7;9@9K 9<;6@67 7 6;@7 78 59567@. P@;@ @69@;8@ 5@;7<5 756<5 @5<.
88
P@5< 1 M@;@<5 8<5 Breapoint 7 78 ;<;@@ >@>< 89Z 5<:;7 8@ 87@ ><>7 7;7<5 7 78 ;<;@@ @@ @ @5@ 8< 776@<5 < [ F" \.
S9 85@<5 [ F( \ 9;7<5 @5< @ @5< <;<:@>< 8<5 @8<;75 >7 8@5 @;9@:8753 @;@ <<7; 756<5 @8<;75 @ ><5 <;@5 1- P@;=><<5 < 78 Mo@se 5<:;7 8@ @;9@:87. $- D@>< ><:87 89Z 997;>< 8@5 @;9@:875 @5@;@ @ 8@ 76@@ >7 8@ >7;7@ 57 @6@89@;@ 7 @>@ @5< >7 8@ 779K >78 ;<;@@.
88
S9 7;7<5 5@89; >78 <>< >7 >7:7; 85@<5 M7 57;9<; [ P@5@; @ \ [ N@7@; @ K>9< 767 \.
88
&API!%'# #peradores de condición. +jercicio (2 *entencia &H+&? L@ 57679@ &H+&? 57 6989@ @;@ 5@:7; 59 @ <>99K 75 7;>@>7;@ REPORT Z_COND_CHEC . * Com/ro#amo @2e )a 0aria#)e 4,84URC 3 %. CHECK 4,84UBRC EJ %. WRITE: -ARIABLE&&.
+jercicio (5 *entencia IF ..+'*+ L@ 57679@ IF..+'*+ 75 @ >7 8@5 =5 6989@>@5 7 ABAP/4 < 788@ 57 <@;@ @8<; 59 87 @ <>99K 776@ K>9<. REPORT Z_I_ESLE. DATA: AUTO&5&%6 T,PE C -ALUE 'CAMARO'( AUTO5&%6 T,PE C -ALUE 'CRUE'. I; AUTO& 3 'CAMARO'. WRITE: 'MI AUTO ;A-ORITO E4 UN CAMARO'. EL4EI; AUTO& 3 'CRUE'. WRITE: 'MI AUTO ;A-ORITO E4 UN CRUE'. EL4E: 'MI AUTO ACTUAL E4 UN CRUE'. ENDI;.
88
'istados de operadores lóEicos. O7;@><;
O7;@><;
D75;99K
]
EQ
E5 9@8
GT
M@<; 7
0
LT
M7<; 7
]
GE
M@<; < 9@8 7
0]
LE
M7<; < 9@8 7
0
NE
D97;767
BET'EEN %@8<;1 @>
E6;7
%@8<; $ IS INITIAL
E8 <679>< < @ @:9@><
IS NOT INITIAL
E8 <679>< @ @:9@><
+jercicio (6 *entencia &A*+ L@ 57679@ &A*+ 57 6989@ @>< @ @;9@:87 6977 W869875 <9<75 @ @>@ @ >7 8@5 <9<75 57 87 97;7 >@; @ 9K. REPORT Z_CASE. DATA: MiEntero%& T,PE I -ALUE &. CA4E MiEntero%& WHEN &: WRITE: 'MI AUTO ;A-ORITO E4 UN CAMARO'. WHEN : WRITE: 'MI AUTO ;A-ORITO E4 UN CRUE'. ENCA4E.
88
+jercicio (8 %sando el operador NO diferente. E8 <7;@><; NO 57 6989@ @>< 7;7<5 <@;@; ><5 @8<;75 @;@ <<7; 59 5< >97;7675. REPORT Z_DIERENTE. DATA: MiEntero%& T,PE I -ALUE &( MiEntero% T,PE I -ALUE . I; MiEntero%& FG MiEntero% WRITE: 'Lo nmero no on i12a)e'. EL4E WRITE: 'Lo nmero on i12a)e'. ENI;.
+jercicio ,9 %sando el B+!>++ E8 <7;@><; B+!>++ 57 6989@ @>< 7;7<5 5@:7; 59 @ @;9@:87 57 776;@ 7 ;@<. REPORT Z_BETEEN. DATA: MiEntero%& T,PE I -ALUE &. I; MiEntero%& BETWEEN % AND WRITE: 'Mi entero et entre e) &..'. ENI;.
88
&API!%'# B@cles. +jercicio ,( B@cle $# E8 :87 $o 57 6989@ @;@ 776@; @ 9K 976;@5 756@ 87 @ <>99K. REPORT Z_DO_E15. DATA: Entero T,PE I -ALUE &. DO &% TIME4 Entero 3 Entero &. WRITE: 7'E) n2mero e'.E+'/. ENDDO.
+jercicio ,, B@cle $# con +I! E8 :87 $o @ 775 57 <:9@ < E2IT @;@ 5@89; >78 :87 59 >767;9@>@ <>99K 57 87. REPORT Z_DO_E16. DATA: Entero T,PE I -ALUE &. DO &% TIME4 I; Entero 3 <. E$IT. Entero 3 Entero &. WRITE: 7'E) n2mero e'. E+'/. ENDDO.
+jercicio , B@cle >ile E8 :87 >ile 57 6989@ @;@ 776@; @ 9K 976;@5 57 8@ @ <>99K. REPORT Z_HILE_E17. DATA: Entero T,PE I -ALUE &. WHILE Entero LT &%
88
Entero 3 Entero &. WRITE: 7'E) n2mero e'.E+'/. ENWHILE.
88
&API!%'# 4 Parámetros D s@Gr@tinas. +jercicio ,4 E <@59<75 ;<75@;8< @;@ 76;@>@5 7 57 PARAMETERS.
Parámetros de entradas. 77596@<5 76;@; @8<; @;@ 75< 57 6989@ 8<5 @;=76;<5 >7 <:;@ < 8@ @8@:;@ ;757;@>@
REPORT Z_PARAMETROS_E18 . PARAMETER4: N2mero& T,PE I. PARAMETER4: N2mero T,PE I. DATA: RE4ULTADO T,PE I. RE4ULTADO 3 N2mero& N2mero. WRITE: RESULTADO.
+jercicio ,1 *@Gr@tinas Internas. L@5 5:;69@5 5< 6989@>@5 @;@ ;@76@; 78 K>9< >7 6@8 <;@ 7 57@ < =5 =98 5 @679976<3 @;@ ;7@; @ 5:;69@ 8< @7<5 < 8@ @8@:;@ ;757;@>@ PERFOM. REPORT Z_SUBRUTINAS_E19. PER;ORM M4UBRUTINA. * Im/)ementaci=n +e )a 2#r2tina. ;ORM M4UBRUTINA. WRITE: 'Eto e 2n eem/)o +e 2#r2tina interna'. END;ORM.
+jercicio ,2 *@Gr@tinas Internas con parámetros. L@5 5:;69@5 7;967 @5@; @;=76;<5 9@8 7 8@5 9<75. REPORT Z_SUBRUTINAS_E19. DATA: Entero T,PE I -ALUE &. PER;ORM M4UBRUTINA U4IN9 ENTERO.
88
* Im/)ementaci=n +e )a 2#r2tina. ;ORM M4UBRUTINA U4IN9 ENTERO. WRITE: 'Im/rimira e) Entero:'( ENTERO. END;ORM.
+jercicio ,5 *@Gr@tinas +Qterna con parámetros. L@5 5:;69@5 6@:9V 7>7 756@; :9@>@5 7 7;<5 767;<5 @;@ @7; 78 6;@:@< =5 <;@9@>< 75 @ >7 8@ :7@5 ;=69@5 >7 ;<;@@9K ABAP/4. 1 . C;7@<5 78 ;97; ;<;@@ 7 87 88@@;7<5 ^DB REPORT DB. DATA: Entero T,PE I -ALUE &. PER;ORM M4UBRUTINA U4IN9 ENTERO. * Im/)ementaci=n +e )a 2#r2tina. ;ORM M4UBRUTINA U4IN9 ENTERO. WRITE: 'Im/rimira e) Entero:'( ENTERO. END;ORM.
$ . C;7@<5 78 57>< ;<;@@ ^CALCULO 7 88@@;= 8@ 5:;69@ REPORT !CALCULO. PER;ORM M4UBRUTINA U4IN9 ENTERO5!DB6 U4IN9 ENTERO.
+jercicio ,6 Plantilla de ABAP/4 E5 9<;6@67 7 8@ ;<;@@9K @677; <;>7 @;@ 7 78 K>9< 57@ 879:87 <; @897; <6;< ;<;@@><5 @;@ 75< 57 6989@ 8@5 8@6988@5. E56< 75 778< >7 @ 8@6988@ 59787. *888888888888888888888888888888888888888
88
* Nom#re Re/orte: !PLANTILLA!E * A2tor: MARLON * ;ECHA: .&.&< *8888888888888888888888888888888888888888 * Mo+iicacione: 4e a1re1aron )o Dato * ;eca: .&.&< *8888888888888888888888888888888888888888 REPORT !PLANTILLA!E. ******************************************* * DATO4 ******************************************* DATA: Entero T,PE I -ALUE &. ******************************************* * 4ALIDA DE DATO4 ******************************************* WRITE: 'Im/rimir'.
88
&API!%'# 1 !aGlas internas. +jercicio ,8 !aGlas internas. E ABAP/4 @ 775 77596@<5 ;<75@ @;9<5 ;7956;<5 7 697< >7 779K3 @;@ 75< 57 6989@ 8@5 6@:8@5 967;@53 5< 756;6;@5 >7 :@57 >7 >@6<5 7 7>7 677; 8@ 95@ 756;6;@ >7 8@ 6@:8@ 767 < 7>7 677; 756;6;@ ;<9@. L@ @8@:;@ ;757;@>@ #&&%"* 7579@ 8@ @69>@> >7 ;7956;< 7 57 @;>@ 7 8@ 7<;9@3 @>< 78 @8<; 75 599@ 7 7>7 677; @897; @69>@> >7 ;7956;<5. REPORT T&)*&_I+'&_E23. * Dec)aramo 2na ta#)a interna DATA: BE9IN O; INT!ALUMNO4 OCCUR4 %( Nom#re5<6 T,PE C( A/e))i+o5<6 T,PE C( EDAD56 T,PE I( ;ECHA T,PE D( END O; INT!ALUMNO4. * L)enamo )a ta#)a interna TI!ALUMNO48Nom#re 3 'Mar)on'. TI!ALUMNO48A/e))i+o 3 ';a)con'. TI!ALUMNO48EDAD 3 '<'. TI!ALUMNO48;ECHA3 4,8DATUM. * Act2a)iamo )o +ato APPEND TI!ALUMNO4 * Recorremo )a ta#)a interna me+iante LOOP LOOP AT TI!ALUMNO4. WRITE: 7 INT!ALUMNO48NOMBRE( INT!ALUMNO48 A/e))i+o. ENDLOOP.
88
+jercicio 9 !aGlas internas estr@ct@ra Eeneral. E56@ 75 8@ 756;6;@ 77;@8 >7 @ 6@:8@ 967;@. REPORT ZEEMPLO1. TABLE4: T&(T. DATA: BE9IN O; FNom#re +e )a ta#)a internaG. CAMPO%& T,PE I( CAMPO% T,PE C. END O; INTERNAL FNom#re +e )a ta#)a internaG.
E 78 <:;7 >7 8@ 6@:8@ 967;@ 57 <8<@ @897; @>7@ >7 @;=67; 7;< << @6;K 597;7 75 :7< 77@; < I!R 75 >79; 59 8@ 6@:8@ 57 88@@ &A*A 8@ 6@:8@ 967;@ 57 88@@;= I!&A*A . E 78 599767 778< 7;7<5 K< @>99<@; ;7956;<5 @ @ 6@:8@ 967;@. REPORT T&)*&_I+'&_E24. TABLE4: 22ario. DATA: BE9IN O; ;!CADENA. nom#re5&6 T,PE C. a/e))i+o5&6 T,PE C. mai)5%6 T,PE C. DATA: END O; ;!CADENA. DATA: BE9IN O; INT!TABLA OCCUR4 %%. nom#re5&6 T,PE C. a/e))i+o5&6 T,PE C. mai)5%6 T,PE C. DATA: END O; INT!TABLA. 22ario8nom#re 3 "MARTHA". 22ario8 a/e))i+o 3 "HERNANDE". 22ario8 mai) 3 "aQ&mar)on.c)". 4TART8O;84ELECTION. 4ELECT * ;ROM 22ario WHRE A/e))i+o LIKE 'H '. MO-E 22ario8nom#re TO INT!TABLA8nom#re. MO-E 22ario8a/e))i+o TO INT!TABLA8 a/e))i+o. MO-E 22ario8mai) TO INT!TABLA8mai).
88
CLEAR ;!CADENA. END4ELECT. LOOP AT INT!TABLA. WRITE: 7 INT!TABLA8nom#re. ENDLOOP.
+jercicio ( !aGlas internas con caGecera. S9 :97 57 7>7 < 989; 8@ @:77;@ >7 8@ 6@:8@ 967;@ 597;7 75 ;7<7>@:87 <8<@;8@3 7 7567 778< 7;7<5 K< @7;8<. C<< <76< 8@ @:77;@ 75 78 W9< ;7956;< 7 57 6989@ @;@ @;7@; ;7<;;7; >@6<5 >78 7;< >7 8@ 6@:8@ 967;@. REPORT !TABLA4!INTERNA4!CON!E<. * Creamo )a etr2ct2ra +e )a ta#)a interna. * 2ti)iamo )a ta#)a KNA& maetro +e c)iente. T,PE4: BE9IN O; t!KNA&( NAME& LIKE KNA&8NAME&( " Nom#re TEL;& LIKE KNA&8TEL;&( " Te)eono LAND& LIKE KNA&8LAND&( "Pai END O; t!KNA&. * Creamo )a ta#)a interna INT!KNA&. DATA: INT!KNA& T,PE 4TANDARD TABLE O; t!KNA& WITH HEADER LINE. * Cam/o /ara @2e e) 22ario entre 2n 0a)or * U48Partner PARAMETER4: /!NAME& LIKE KNA&8NAME&. * L)enamo )a ta#)a 4ELECT NAME& TEL;& LAND& ;ROM KNA& INTO TABLE INT!KNA& WHERE NAME& 3 /!NAME&. *Im/rimimo )o +ato +e )a ta#)a interna LOOP AT INT!KNA&. WRITE: 7 INT!KNA&8NAME&( INT!KNA&8TEL;&( INT!KNA&8LAND&. ENDLOOP.
88
+jercicio , !aGlas internas cons@lta de @s@arios. E 7567 778< 7;7<5 K< 9<;6@; 8@ 756;6;@ >7 @ 6@:8@ >7 SAP3 78 778< 756;@ 78 <:;73 @>@67 869@ 7@ >7 76;@>@ @8 59567@ >7 5@;9< 7 SAP. P@;@ 75< 6989@;7<5 8@ 6@:8@ USR$. *8888888888888888888888888888888888888* * REPORT U4ER& * A2tor MARLON ;ALCON *8888888888888888888888888888888888888888* REPORT U4ER&. * Creamo )a etr2ct2ra +e )a ta#)a U4R% TABLE4: U4R%. DATA: BE9IN O; 4T!U4UARIO4. INCLUDE 4TRUCTURE U4R%. DATA END O; 4T!U4UARIO4. * Creamo )a ta#)a interna con ca#ecera DATA INT!U4UARIO4 LIKE TABLE O; 4T!U4UARIO4 WITH HEADER LINE. * Entramo e) U2ario @2e @2eremo con2)tar PARAMETER4: PU4UARIO LIKE U4R%8BNAME. * Hacemo 2na con2)ta a )a ta#)a U4R%& ? ))enamo )a ta#)a interna. * Im/rimimo en /anta))a )o 0a)ore. 4ELECT * ;ROM U4R% INTO CORRE4PONDIN9 ;IELD4 O; TABLE INT!U4UARIO4 WHERE BNAME 3 PU4UARIO. LOOP AT INT!U4UARIO4. WRITE: 7 INT!U4UARIO48BNAME( INT!U4UARIO48MANDT( INT!U4UARIO48TRDAT. ENDLOOP.
+jercicio !aGla interna simple. E567 75 778< 5989@>< >7 6@:8@ 967;@. REPORT ZSL1. TABLES MARAV. DATA INT_MARAV LIE MARAV OCCURS 1000 ITH HEADER
88
LINE. SELECT ROM MARAV INTO TABLE INT_MARAV. LOOP AT INT_MARAV. RITE: INT_MARAV"MANDT. ENDLOOP.
+jercicio 4 !aGlas internas con reas de traGajo. E567 75 778< 7;7<5 K< 6;@:@@; < @V;7@5 >7 6;@:@<5 6@:8@5 59 @:77;@. E 78 778< 57 <56;@;= 78 ;97; ;7956;< >7 @ 6@:8@. REPORT ZOPERACIONES. * Declaro el área de trabajo. DATA A_ICON LIE ICON. * Declaro el parametro de entrada. PARAMETER PA_NAME LIE ICON"NAME DEAULT ICON_TOTAL_LET. * Selecciono el primer valor SELECT SINGLE NAME ID ROM ICON INTO CORRESPONDING IELDS O A_ICON HERE NAME ; PA_NAME. RITE : A_ICON"ID< A_ICON"NAME COLOR CO*_E!.
+jercicio 1 !aGlas internas con FI+'$ *0MB#'* E567 75 778< 7;7<5 K< 6;@:@@; < FI+'$*0MB#'* 7 < 5< =5 7 67;<5 7 ABAP. U 67;< 57 <<7 << @ @;9@:87 7 @7 ;77;79@ @ @ >9;79K >7 7<;9@ 7 ;<;@@. REPORT ZOPERACIONES. * Creamos la estructura de la tabla. T!PES BEGIN O ST_ICON<
88
ID LIE ICON"ID< NAME LIE ICON"NAME< END O ST_ICON. * Creamos el parámetro de entrada. PARAMETER PA_NAME *(=+ ICON"NAME DEAULT ICON_TOTAL_LET. * Declaro la tabla interna si cabecera DATA TI_ICON T!PE STANDARD TABLE O ST_ICON. * Declaro el FIELD-SYM!LS IELD"S!MBOLS >S_ICON? LIE LINE O TI_ICON. * "acemos la consulta SELECT NAME ID ROM ICON INTO TABLE TI_ICON HERE NAME ; PA_NAME. * #ecorremos la tabla interna LOOP AT TI_ICON ASSIGNING >S_ICON?. RITE : >S_ICON?"ID< >S_ICON?"NAME. ENDLOOP.
88
&API!%'# 1 $iccionario de datos +jercicio 2 +ntrando al $$ ;*+((< E 78 >99<@;9< >7 >@6<5 756= 6<>@5 8@5 6@:8@5 7 >75;9:7 78 59567@ SAP. P@;@ 76;@; 78 >99<@;9< 8< @7<5 7>9@67 78 M+%/H+""AMI+!A*/ >#"?B+&H ABAP/$+*A""#''#/*+(( $I&!I#A"0 ABAP / &#)(@ ( %&#/ ('+/ & *& '&&(
SE11.
E +* &#/ -T&)*& + )&+ &/- +'&#/ *& &)*& + +'+#/ /*&' + ++ +F+#*/ &'+#/ *& USR02 + #+'& +* *(&/ + &'(/ + SAP. U&
88
%+ +*+(/&& *& &)*& *&#/ +* )/ (+'(/' V(&*(&'. ! %+'+#/ *& +''& + *& &)*& /*&&. P&'& %(&*(&' */ D&/ ++#/ + *&' *& /#)(&( + +*& Ctrl + Shift + F10 / *&#/ +* )/ C/+(/.
N/ &*' & %+&& + $ *&#/ -8- / +* )/ +F+&'.
88
U& +F+&& / #/'&' // */ '+J('/ + *& &)*& /*&& USR02.
+jercicio 5 !aGla de @na transacción. L@5 6;@5@9<75 7 SAP 756= <756@5 <; >97;7675 >@6<53 @;@ 5@:7; >7 >K>7 SAP 6<@ 8<5 >@6<5 6977 7 579; 756<5 @5<5. 1- E76@<5 8@ 6;@5@9K 7 7;7<5 ;795@; 7 7567 778< 6989@;7 8@ %A1 - C;7@; <7;6@ >7
88
76@. S<:;7 78 @< <;@9@9K ;759<@<5 8@ 678@ F1 A>@.
>7
76@
$- E 8@ 76@@ >7 @>@ 85@<5 I<;@9K 6V9@.
!- E 8@ 76@@ datos tcnicos @67 7 67 756;@ 78 <:;7 >7 8@ 6@:8@ 78 @<3 7 7567 @5< 8@ 6@:8@ 75 8@ :BA? . A<;@ 59 @5 @ 8@5 *+(( :5@5 8@ 6@:8@5 7;@5 6<><5 8<5 >@6<5 7 7>75 <586@;87 >75>7 ABAP.
88
+jercicio 6 &ons@lta para @na taGla de $$. E56@ 8@6988@ 67 57;9;= @;@ @ 7 7 67@5 @ 6@:8@ >78 DD D99<@;9< >7 D@6<5# 97;@5 <586@; 6<>< 5 <679>< >75>7 ABAP 8< 7>@5 @7;3 5@;7<5 8@ 95@ 6@:8@ >78 778< @67;9<;. K""""""""""""""""""""""""""""""""""""""""""" K R+/' ZOERTAS K A/' MARLON ALCON K""""""""""""""""""""""""""""""""""""""""""" REPORT ZOERTAS. C'+&#/ *& +''& + *& &)*& (+'& / *& &)*& VBA TABLES VBA. DATA BEGIN O ST_VBA. INCLUDE STRUCTURE VBA. DATA END O ST_VBA. C'+&#/ *& &)*& (+'& / &)++'& DATA INT_VBA LIE TABLE O ST_VBA ITH HEADER LINE. I#'(#(#/ + &&**& */ %&*/'+. SELECT ROM VBA INTO CORRESPONDING IELDS O TABLE INT_VBA. LOOP AT INT_VBA. RITE : INT_VBA"VORG< - O'J&(&( + V+& INT_VBA"VTEG< - C&&* + ('()( INT_VBA"SPART. - S+/' ENDLOOP.
88
+jercicio 8 "eporte A:' con @na taGla del $$. E56@ 8@6988@ 67 57;9;= @;@ @ 7 7 67@5 @ 6@:8@ >78 DD D99<@;9< >7 D@6<5# 97;@5 <586@; 7>9@67 R7<;67 AL% REPORT AL-%&. * Car1amo )o +ato ti/o )i T,PE8POOL4 4LI4. DATA: 9!INT!ie)+cat T,PE )i!t!ie)+cat!a)0( 9!4T!ie)+cat T,PE )i!ie)+cat!a)0. * Creamo )a etr2ct2ra +e )a ta#)a interna con )a ta#)a MARATABLE4: MARA-. DATA: BE9IN O; 4T!MARA-. INCLUDE 4TRUCTURE MARA-. DATA END O; 4T!MARA-. * Creamo )a ta#)a interna con ca#ecera DATA INT!MARA- LIKE TABLE O; 4T!MARA- WITH HEADER LINE. * Co/iamo )o +ato ta#)a MARA- a )a ta#)a interna INT!MARA4ELECT * ;ROM MARA- INTO TABLE INT!MARA-. * Im/rimimo en /anta))a )o 0a)ore. ;ie)+cat 9!4T!ie)+cat8ie)+name 3 'MANDT'. "Nom#re +e) cam/o +e )a ta#)a 9!4T!ie)+cat8e)tet!m 3 'Man+ante'. "Decri/ci=n me+iana 9!4T!ie)+cat8e)tet! 3 'Man.'. "Decri/ci=n corta APPEND 9!4T!ie)+cat TO 9!INT!ie)+cat. 9!4T!ie)+cat8ie)+name 3 'MTART'. 9!4T!ie)+cat8e)tet!m 3 'Ti/o +e materia)'. 9!4T!ie)+cat8e)tet! 3 'Ti/.'. APPEND 9!4T!ie)+cat TO 9!INT!ie)+cat. * ;2nci=n /ara motrar e) ALCALL ;UNCTION 'REU4E!AL-!9RID!DI4PLA,' E$PORTIN9 it!ie)+cat 3 9!INT!ie)+catS
88
I!9RID!TITLE )=1ica M9M' TABLE4 t!o2tta# E$CEPTION4 /ro1ram!error OTHER4
3 'AL-%&7Ta#)a80ita /ara BD
3 INT!MARA-S 3 & 3 .
+jercicio 49 F@ll "eporte A:' de @na taGla. E56@ 8@6988@ 67 57;9;= @;@ @ 7 7 67@5 @ 6@:8@ >78 DD D99<@;9< >7 D@6<5# 97;@5 <586@; 7>9@67 R7<;67 AL%. REPORT AL-%. * Car1amo )o +ato ti/o )i T,PE8POOL4 4LI4. DATA: 9!INT!ie)+cat T,PE )i!t!ie)+cat!a)0( 9!4T!ie)+cat T,PE )i!ie)+cat!a)0. * Creamo )a etr2ct2ra +e )a ta#)a MARATABLE4: MARA-. DATA: BE9IN O; 4T!MARA-. INCLUDE 4TRUCTURE MARA-. DATA END O; 4T!MARA-. * Creamo )a ta#)a interna con ca#ecera DATA INT!MARA- LIKE TABLE O; 4T!MARA- WITH HEADER LINE. * Co/iamo )o +ato ta#)a MARA- a )a ta#)a interna INT!MARA4ELECT * ;ROM MARA- INTO TABLE INT!MARA- UP TO &%% ROW4. * L)amamo )a 2nci=n /ara a#er to+o )o cam/o +e )a ta#)a. DATA: BE9IN O; INT!TAB OCCUR4 &%%. INCLUDE 4TRUCTURE D;IE4. DATA: END O; INT!TAB. ca)) 2nction 'DDI;!;IELDIN;O!9ET' e/ortin1 ta#name 3 'MARA-' * ;IELDNAME 3 ' ' LAN9U 3 4,8LAN9U
88
* * * * * * *
L;IELDNAME 3 ' ' ALL!T,PE4 3 ' ' IMPORTIN9 $%%L!WA 3 WATAB DDOBT,PE 3 D;IE4!WA 3 LINE4!DE4CR 3 TABLE4 D;IE4!TAB 3 INT!TAB * ;I$ED!-ALUE4 3 E$CEPTION4 NOT!;OUND 3 & INTERNAL!ERROR 3 OTHER4 3 . i ?82#rc FG %. WRITE:7 'No e enc2entra )o cam/o'. en+i. * Im/rimimo en /anta))a )o 0a)ore. ;ie)+cat LOOP AT INT!TAB. 9!4T!ie)+cat8ie)+name 3 INT!TAB8;IELDNAME. 9!4T!ie)+cat8e)tet!m 3 INT!TAB8;IELDTE$T. 9!4T!ie)+cat8e)tet! 3 INT!TAB8;IELDNAME. APPEND 9!4T!ie)+cat TO 9!INT!ie)+cat. ENDLOOP. * ;2nci=n /ara motrar e) ALCALL ;UNCTION 'REU4E!AL-!9RID!DI4PLA,' E$PORTIN9 it!ie)+cat 3 9!INT!ie)+catS I!9RID!TITLE 3 'AL-%&7Tit2)o AL-' TABLE4 t!o2tta# 3 INT!MARA-S E$CEPTION4 /ro1ram!error 3 & OTHER4 3 .
+jercicio 4( &rear @n $ominio. E8 ><99< 7 SAP 57 87 88@@ @ 78 ;@< >7 @8<;75 7 7>7 677; @< >7 8@ 6@:8@. E78< 78
88
><99< &#'#"A%!# 7>7 677; R<<3 %7;>73 A83 76.#. E8 ><99< <5 @;>@ 9<;@9K >7 6@@< =9<3 69< >7 9<;@9K 7 87 <8<@;7<5. P@;@ ;7@; ><99< 9;7<5 @ 8@5 6;@5@9K *+(( ;7@;7<5 78 ><99< =$&#'#"A%!#.
E6;@<5 8@5 @;9@:875 $escripción GreJeL P<>7<5 <7; 676< 7 >75;9:@ 78 @<. !ipo de datosL S7879<@<5 CHAR @;@ >79; 7 75 @ @>7@. &td. posicionesL 1 'onEit@d de salidaL 1
88
%@<5 @ 8@ 756@@ Á:96<5 @8 >79<5 8<5 @8<;75 7 7>7 6<@; 78 @< 7 7567 @5< 5< 8<5 <59:875 <8<;75.
P<; W869< G@;>@<53 >@<5 @ <;>7 >7 6;@5<;67 @69@<5. +jercicio 4, &rear @n +lemento de dato. L<5 78776<5 >7 >@6<5 <6977 78 <6< >7 8@ >75;99K >78 @< 78 ><99<. P@;@ ;7@;8@ 8<
88
@;7<5 6@:9V < 8@ 6;@5@9K SE11. E 69< >7 >@6<5 <8<@<5 ED^COLOR^AUTO.
E 8@ ;K9@ 76@@ 57879<@<5 E87.>@6<5 85@<5 <69@;.
88
C;7@<5 @ >75;99K :;77 >78 78776< >7 >@6<3 <8<@<5 78 ><99< 7 7;7<5 7 <67@.
E 8@ 756@@ $enom.campo <8<@;7<5 8@5 >97;7675 >75;99K 7 @@;77;= 7 @ 8@ 6@:8@ 7 >77>79@ >78 6@@< 7 57 756;7. D75V5 @;>@<5 @69@<5.
88
+jercicio 4 &rear taGla transparente ;*+((<. P@;@ ;7@; @ 6@:8@ 6;@5@;767 76;@;7<5 @ 8@ 6;@5@9K SE11 < T@:8@ >7 :@57 >7 >@6<5 57879<@>< 76;@<5 78 <:;7 >7 778< 7 5@;7<5 7 75 =!!IP#*A%!#* 85@<5 78 :<6K ;7@;.
C<8<@<5 8<5 5997675 >@6<5 $escripción GreJeL D75;99K >7 8@ 6@:8@ &lase de entreEaL A P<;7 @8@7@;@ >@6<53 6@:8@ >7 @89@9K.
88
Browser datosL %95@8./A6@8.7;969>@.
I$L 85@<5 78 :<6K TIPOS INSTALADOS :5@<5 INT1 M#$+'#L :5@<5 78 78776< >7 >@6<5 AL%^CHAR4. &#'#"L :5@<5 78 78776< >7 >@6<5 7 ;7@<5 7 57 88@@ ED^COLOR^AUTO.
88
D7< @8 57;= 78 @8<; 8@7 7 7567 @5< 6989@;7<5 597;7 8@ ;97;@ 8@ >7 8@ 6@:8@ <; 8< 7 7 8@ <8@ &lJ 8@ @;<. G@;>@<5 7 8@ ;K9@ 76@@ @>< <5 9>@ 8@ C8@57 >7 >@6<5 <8<@<5 APPLO 7 599@ >@6<5 @756;<53 &ateE.tamaSo <7<5 7 97;7 >79; >@6<5 76;7 ...* ;7956;<5.
%@<5 @8 7W D76@8875/C@67<;@ >7 @89@9K 57879<@<5 A89@:87 >7 @897; @7;@. G;@:@<5 @69@<5.
88
+jercicio 44 'lenar @na taGla de datos ;*+(2<. P@;@ 78 887@>< >7 8@5 6@:8@5 57 6989@ 8@ 6;@5@9K SE1*3 :5@<5 78 <:;7 >7 8@ 6@:8@ 7 @:@<5 ;7@>< 7 78 778< @67;9<; 85@<5 E67;.
88
&API!%'# 2 #P+ *3' &ons@ltas ABAP Introd@cción a #P+ *3'. E5 <<9>< 7 ABAP #P+ *3' @ 8@5 57679@5 SQL S6;6;7> Q7; L@@7 7 5< 6989@>@5 @;@ 6;@:@@; < 6@:8@5 >7 :@57 >7 >@6<5. E 7567 @68< 7;7<5 8<5 1 778<5 =5 6989@><5. L@5 57679@5 < - SELECT S7879K >7 >@6<5# - INSERT I57;6@<5 >@6<5# - UPDATE A6@89@<5 >@6<5# - OPEN CURSOR A:;7 ;5<;# - FETCH A@@ @ <599K >78 ;5<;# - CLOSE CURSOR C97;;@ 78 ;5<;# - COMMIT 'OR A6@89@ 8<5 >@6<5 7 8@ 6@:8@# - ROLLBAC 'OR D75@7; @:9<5 7 8@ 6@:8@# +jercicio 41 &ons@lta Gásica directa. E567 778< 756;@ @ <586@ :=59@ ><>7 87 57879<@;7<5 6<><5 8<5 @<5 >7 8@ 6@:8@ 6989@;7<5 @ 6@:8@ 967;@ 7 87 @;7<5 <>99K IF @;@ ;@69@; ><5 <76<5. REPORT ZSL01. C'+&#/ *& +''& + *& &)*& MARAV TABLES MARAV. DATA BEGIN O ST_MARAV. INCLUDE STRUCTURE MARAV. DATA END O ST_MARAV.
88
+jercicio 42 &ons@lta Gásica con !I. E567 778< 756;@ @ <586@ :=59@ ><>7 87 57879<@;7<5 6<><5 8<5 @<5 >7 8@ 6@:8@ 6989@;7<5 @ 6@:8@ 967;@ 7 87 @;7<5 <>99K IF @;@ ;@69@; ><5 <76<5. REPORT ZSL01. C'+&#/ *& +''& + *& &)*& MARAV TABLES MARAV. DATA BEGIN O ST_MARAV. INCLUDE STRUCTURE MARAV. DATA END O ST_MARAV. C'+&#/ *& &)*& (+'& / &)++'& DATA INT_MARAV LIE TABLE O ST_MARAV ITH HEADER LINE. OPEN SL BASICO SELECT ROM MARAV INTO TABLE INT_MARAV. I#'(#(#/ */ D&/ LOOP AT INT_MARAV. I INT_MARAV"NTGE >? 0. RITE : INT_MARAV"MANDT<$"%*(+< INT_MARAV"MAT<$"%*(+< INT_MARAV"NTGE<$"%*(+. ENDI. ENDLOOP. RITE :C/*#& 1< $"%*(+< C/*#& 2< $"%*(+. ( ; ( 1.
+jercicio 45 &ons@lta primeras (99 Tlas. P@;@ 7567 778< 6989@;7<5 78 778< @67;9<; 5<8< <>9@;7<5 8@5 5997675 87@5. S7 <56;@;= 5<8< 8@5 1 ;97;@5 8@5. OPEN SL + #+'& *& '(#+'& 100 (*& SELECT ROM MARAV INTO TABLE INT_MARAV UP TO &%% ROW4.
88
+jercicio 46 &ons@lta condición. P@;@ 7567 778< 6989@;7<5 78 778< @67;9<; 5<8< <>9@;7<5 8@5 5997675 87@5. OPEN SL /*/ /(& */ + #*+ *& /(( S+/' 00. 4ELECT * ;ROM MARA- INTO TABLE INT!MARAWHERE 4PART 3 '%%'.
+jercicio 48 Mostrar primera Tla en @na taGla S7879<@;7<5 8@ ;97;@ 8@ >7 8@ 6@:8@ 7 8@ 8@ <>99K 599767. REPORT ZSL1. TABLES MARAV. SELECT SINGLE ROM MARAV HERE MATNR E 000000000000000023. I S!"SUBRC ; 0. RITE MARAV"MATNR. ELSE. RITE : ERROR. ENDI.
+jercicio 19 *eleccionamos todos . E 7567 778< < 5@;7<5 6@:8@5 967;@5 59< 7 7 < 78 SELECT 9;7<5 9;997>< 8<5 @8<;75. REPORT ZSL1. TABLES MARAV. SELECT ROM MARAV. RITE : MARAV"MATNR. ENDSELECT. I S!"SUBRC NE 0. RITE : ERROR. ENDI.
+jercicio 1( *eleccionamos @n solo reEistro E 7567 778< < 5@;7<5 6@:8@5 967;@5 59< 7 7 < 78 SELECT 9;7<5 9;997>< 8<5 @8<;75.
88
REPORT ZSL1. TABLES MARAV. SELECT ROM MARAV. RITE : MARAV"MATNR. ENDSELECT. I S!"SUBRC NE 0. RITE : ERROR. ENDI.
+jercicio 1, MáQimoU MKnimoU &antidad. S9 677<5 @ 6@:8@ 7;7<5 5@:7; 8@ @69>@> >7 ;7956;<5 5@<5 &#%!. REPORT ZSL1. TABLES MARAV. DATA CONTADOR T!PE I. SELECT COUNT ROM MARAV INTO CONTADOR. RITE : CANTIDAD
P@;@ 5@:7; 78 =9< @8<; >7 @ <8@ 5@<5 MA REPORT ZSL1. TABLES MARAV. DATA MAIMO LIE MARAV"BRGE. SELECT MA BRGE ROM MARAV INTO MAIMO. RITE : MA PESO< MAIMO< J.
P@;@ 5@:7; 78 7<; @8<; >7 @ <8@ 5@<5 MI REPORT ZSL1. TABLES MARAV. DATA MAIMO LIE MARAV"BRGE. SELECT MIN BRGE ROM MARAV INTO MAIMO. RITE : MINIMO PESO< MAIMO< J.
+jercicio 1 *%MA 0 P"#M+$I#. S9 677<5 @ 6@:8@ 7;7<5 5@; 6<>@ 8@ <8@ 5@<5 *%M.
88
REPORT ZSL1. TABLES MARAV. DATA SUMA T!PE . SELECT SUM BRGE ROM MARAV INTO SUMA. RITE : LA SUMA ES
P@;@ 5@:7; 78 P;<7>9< 6989@<5 A:REPORT 4JL&. TABLE4: MARA-. DATA: PROMEDIO T,PE ;. 4ELECT A-95 BR9EW 6 ;ROM MARA- INTO 5PROMEDIO6. WRITE: 7 'EL PROMEDIO:'(PROMEDIO.
+jercicio 14 B@scando cadenas V@e contenEan otras. P@;@ :5@; 8<5 ;75<5@:875 >7 @67;9@875 7 <97@ < 8@ 876;@ M 8< @7<5 @5. REPORT 4JL&. TABLE4: MARA-. 4ELECT * ;ROM MARAWHERE AENAM LIKE 'M'. WRITE: 7 MARA-8AENAM. END4ELECT.
+jercicio 11 B@scando cadenas con listas. I P@;@ :5@; 8<5 @67;9@875 7 8@ <>99<75 7 7>7 57; 8956@5 5@<5 8@ 57679@ IN 75 << 5@; 78 AND 7;< 7;967 <;@; @;9<5 @8<;75. REPORT 4JL&. TABLE4: MARA-. 4ELECT * ;ROM MARAWHERE BR9EW IN 5&%(&%%(&%%%(%%%6. WRITE: 7 MARA-8BR9EW. END4ELECT.
88
+jercicio 12 *eleccionando @n ranEo B+!>++. S9 677<5 7 7 @< V;9< :5@; 8<5 7 57 776;7 76;7 ><5 @8<;75 8<5 @7<5 @5. E 7567 778< 8<5 @67;9@875 7 67@ 75< 7 1 1. REPORT 4JL&. TABLE4: MARA-. 4ELECT * ;ROM MARAWHERE BR9EW BETWEEN &%% AND &%%%. WRITE: 7 MARA-8BR9EW. END4ELECT.
+jercicio 15 Mostrar taGla ordenada. S9 7;7<5 @ @< <;>7@>< 6989@<5 8@ 57679@ #"$+" B0. REPORT 4JL&. TABLE4: MARA-. 4ELECT * ;ROM MARA- ORDER B, AENAM. WRITE:7 MARA-8AENAM. END4ELECT.
+jercicio 16 Mostrar todos los iconos en *AP S9 7;7<5 98776@; 7 756;@5 @6@88@5 >7 57879K 9<<5 <>7<5 677; 8956@>< <876< >7 9<<5. REPORT ICO. TABLE4: ICON. 4ELECT * ;ROM ICON. WRITE :7 ICON8name( 'Q'( ICON8i+&56(
88
''( % ICON8i+. END4ELECT.
+jercicio 18 &ons@lta a dos taGlas en *AP. S9 7;7<5 @7; @ <586@ 7 7 756;7 @<5 >7 ><5 6@:8@5 7 SAP 6989@<5. U5@;7<5 8@ 6@:8@ !"$I" 7 <6977 6<>< 8<5 ;<;@@5 8@ 6@:8@ !*!& 7 <6977 6<>@5 8@5 6;@5@9<75 7 B0. REPORT TRAN4A. * Declarac$3n de la estructura
T,PE4: BE9IN O; T!TRAB( NAME LIKE TRDIR8NAME( 4UBC LIKE TRDIR84UBC( P9MNA LIKE T4TC8P9MNA( TCODE LIKE T4TC8TCODE( END O; T!TRAB.
"'A1PO% "'A1PO% "'A1PO% "'A1PO+
DE DE DE DE
,DI ,DI ,S,' ,S,'
* Declarac$3n de la tabla $nterna
DATA: IT!TRAB T,PE TABLE O; T!TRAB WITH HEADER LINE. 4ELECT TRDIRVNAME TRDIRV4UBC T4TCVP9MNA T4TCVTCODE INTO TABLE IT!TRAB ;ROM TRDIR INNER OIN T4TC ON 5 TRDIRVNAME 3 T4TCVP9MNA 6 WHERE TRDIRVNAME LIKE ',' OR TRDIRVNAME LIKE '' AND TRDIRV4UBC EJ '&'. LOOP AT IT!TRAB. WRITE : 7 IT!TRAB8NAME( IT!TRAB8TCODE. ENDLOOP.
88
&API!%'# 5 Ampliaciones D otas +jercicio 29 Hola M@ndo en ABAP/4. E 7567 756;< ;97; ;<;@@ 67 757@;7 << ;7@; >75@;;<88< 3 5<8@767 6989@;7<5 8@5 9K >7
88
&API!%'# 6 ProEramación #rientado a #Gjetos. 3@ es la proEramación orientado a oGjetos C L@ ;<;@@9K <;976@>< @ <:76<5 P## 75 @;@>9@ >7 ;<;@@9K 7 5@ 8@575 <:76<5 >75;9:97>< >7 <;@ =5 ;7@8 8@5 @89@9<75. CLASE <;976@>< @ <:76<5 P## 75 @;@>9@ >7 ;<;@@9K +jercicio 2( Hola M@ndo de P##. E 7567 778< @;7<5 ;7<;67 <;976@>@ @ <:76< 7 ABAP3 < V6<>< W:89< 7 9;99;= 75@7 7 @6@88@. REPORT
POO.
* De4$n$/os la clase
CLA44 C!MICLA4E DE;INITION. PUBLIC 4ECTION. METHOD4: IMPRIMIR. PRI-ATE 4ECTION. DATA: CONTADOR T,PE I -ALUE &. ENDCLA44. * Hacemo )a im/)ementaci=n CLA44 C!MICLA4E IMPLEMENTATION. METHOD IMPRIMIR. CONTADOR 3 CONTADOR &. WRITE :7 'E) 0a)or e:' ( CONTADOR. ENDMETHOD. ENDCLA44. * Intanciamo )a c)ae * B)o@2e @2e e eec2tar tra /anta))a +e e)ecci=n 4TART8O;84ELECTION. DATA: M,CLA4E T,PE RE; TO C!MICLA4E. CREATE OBECT M,CLA4E. CALL METHOD M,CLA4E8GIMPRIMIR. END8O;84ELECTION.
88
+jercicio 2, P## con mtodos D parámetros E 7567 778< @;7<5 ;7<;67 < V6<><5 @;=76;<5 <; 8<5 @875 <@;69;7<5 >@6<5. REPORT
POO&.
* De4$n$c$on de clase
CLA44 C!4UMA DE;INITION. PUBLIC 4ECTION. CLA448METHOD4: c)a!contr2ctor. METHOD4:4UMAR IMPORTIN9 -ALUE5-ALOR6 T,PE I( RE4TAR!DO4( E4TADO( RE4ULTADO E$PORTIN9 -ALUE5-ALOR6 T,PE I. PRI-ATE 4ECTION. DATA: -AR& T,PE I -ALUE &%( -AR T,PE I -ALUE &%. ENDCLA44. * I/.le/enta/os el /5todo de la clase
CLA44 C!4UMA IMPLEMENTATION. METHOD c)a!contr2ctor. WRITE: 7'Eto e 2n eem/)o +e c)ae'. ENDMETHOD.
METHOD 4UMAR. -AR& 3 -AR& -ALOR. -AR 3 -AR -ALOR. ENDMETHOD.
METHOD E4TADO. WRITE: 7 -AR&(-AR. ENDMETHOD.
METHOD RE4TAR!DO4. -AR& 3 -AR& 8 . ENDMETHOD.
METHOD RE4ULTADO. -ALOR 3 -AR& -AR. WRITE: 7 -ALOR. ENDMETHOD. ENDCLA44. * 'rea/os la $nstanc$a de la clase
4TART8O;84ELECTION. DATA: M,CLA4E T,PE RE; TO C!4UMA. CREATE OBECT M,CLA4E.
88
CALL METHOD M,CLA4E8GE4TADO. CALL METHOD M,CLA4E8GRE4TAR!DO4. CALL METHOD M,CLA4E8GE4TADO. CALL METHOD M,CLA4E8G4UMAR5 & 6. CALL METHOD M,CLA4E8GE4TADO. CALL METHOD M,CLA4E8GRE4ULTADO. END8O;84ELECTION.
+jercicio 2 P## Herencia de clases. E 7567 778< 7;7<5 K< @7; 7;79@ >7 8@575 7 ABAP. REPORT ZPO02. CLASS PAPA DEINITION. PUBLIC SECTION. METHODS ESTADO. PRIVATE SECTION. DATA VAR1 T!PE I VALUE 10. ENDCLASS. * Implementamos el m$todo de la clase CLASS PAPA IMPLEMENTATION. METHOD ESTADO. VAR1 ; VAR1 2. RITE : VAR1. ENDMETHOD. ENDCLASS. * Creamos la clase "I%! &ue 'ereda de ()() CLASS HIO DEINITION INHERITING ROM PAPA. ENDCLASS. * Creamos la instancia de la clase START"O"SELECTION. DATA M!CLASE T!PE RE TO HIO. CREATE OBECT M!CLASE. CALL METHOD M!CLASE"?ESTADO. CALL METHOD M!CLASE"?ESTADO. END"O"SELECTION.
88
88
&API!%'# 6 ProEramación de diáloEos +jercicio 24 Mensajes en ABAP L<5 75@75 7 ABAP/4 57 6989@ @;@ 9<;@; @8 5@;9< >7 @8W >@6< ;787@67 7 6977 7 5@:7; 79567 >97;7675 69<5 >7 75@75. T@:8@ >7 69<5 >7 75@75 7 ABAP. T
D75;99K
L<96> <; >776<
A
C@78@9K
E8 75@7 @@;77 7 @>;< >7 >9@8<< 78 ;<;@@ 67;9@.
E
E;;<;
E8 75@7 @@;77 7 @>;< >7 >9@8<< 78 ;<;@@ <69@
I
I<;@9K
S7 756;@ @>;< >7 >9@8<< >7 9<;@9K.
S
E56@><
E8 75@7 57 756;@ 7 8@ :@;;@ >7 756@>< 78 ;<;@@ <69@.
'
A>7;679@
D77>7 >78 <676< 75@7 >7 7;;<; @@;77 78 ;<;@@ 7>7 67;9@;
2
S@89;
N< 756;@ 9W 75@7 78 ;<;@@ 67;9@.
REPORT !MEN4AEA!A. ME44A9E 'Menae +e ;ina)iacion' T,PE 'A'.
88
REPORT !MEN4AEA!E. ME44A9E 'Menae +e Error' T,PE 'E'.
REPORT !MEN4AEA!I. ME44A9E 'Menae +e Inormacion' T,PE 'I'.
REPORT !MEN4AEA!4. ME44A9E 'Menae +e Inormacion' T,PE '4'.
REPORT !MEN4AEA!4. ME44A9E 'Menae +e A+0ertencia' T,PE 'W'.
88
+jercicio 21 &reando @na transacción en *AP ;*+8< P@;@ ;7@; @ 6;@5@9K 57 6989@ 8@ 6;@5@9K *+83 87 <8<@<5 78 K>9< >7 8@ 6;@5@9K 7 7;7<5 ;7@;3 7567 K>9< 597;7 6977 7 77@; <; 778< 7 7567 @5< ;7@;7<5 8@ MFH. E 78 @< >7 676< CK>9< >7 8@ 6;@5@9K <8<@<5 756;< K>9< 85@<5 78 :<6K ;7@;.
E 8@ ;K9@ 76@@ <5 7>9;= 7 87 <@<5 676< :;77 7 >75;9:@ 8@ 6;@5@9K.
88
E 8@ ;K9@ 887@; 8<5 5997675 >@6<5 85@; @;>@;.
88
E 8@ ;K9@ 76@@ 57879<@<5 <:76< 8<@8. U@ 7 ;7@89@>< 7567 @:9< 7<5 67;9@>< >7 ;7@; 8@ 6;@5@9K =MFH 59 8< 97;75 ;<:@; 76;@ 8@ 6;@5@9K <;7:@ << @:;7 78 ;<;@@ 78@@><.
88
+jercicio 22 &olores en @n reporte =. E >767;9@>@5 <@59<75 75 775@;9< >97;79@8 < <8<;75 8@5 87@5 >7 ;7<;67. REPORT COLOR&. ;ORMAT INTEN4I;IED COLOR 3 <. WRITE: 'Co)or -er+e:'.
+jercicio 25 :arios colores en @n reporte =. E >767;9@>@5 <@59<75 75 775@;9< >97;79@8 < <8<;75 8@5 87@5 >7 ;7<;67. REPORT COLOR. DATA: MCOLOR T,PE I. DO TIME4. ;ORMAT INTEN4I;IED COLOR 3 MCOLOR. MCOLOR 3 MCOLOR &. WRITE: 7'Co)or:'(MCOLOR. ENDDO.
88
&API!%'# 8 $0P"# Introd@cción a @na $0P"# U@ $0P"# 75 ;7;5<5 67<8K9< >7 ABAP/4 @;@ ;7@; 8@ @@ >7 ;7576@9K >7 ;<;@@.
+jercicio 26 &reación de @na $0P"# ;*+69< P@;@ ;7@; @ $0P"# 9;7<5 @ 8@ 6;@5@9K *+69 7 75 78 #Gject aJiEator 7>9@67 8@ :@;;@ >7 <@><5. S7879<@<5 P;<;@@ <8<@<5 78 <:;7 DNPRO3 85@<5 E67; 7 8@ ;K9@ 76@@ <5 ;76@;= 7 59 >757@<5 ;7@; 78 ;<;@@ 85@<5 SI 8< @;>@<5.
%@<5 @8 7W 85@>< 89Z >7;7< @<5 @ ;7@; 57879<@<5 D;<. N<5 ;76@;= <; 78 7;< <7<5 1.
88
E 8@ 599767 76@ <5 ;76@;= <; @ >75;99K :;77 >7 8@ D;< 87 <8<@;7<5 M9 7@ >;< 57879<@<5 7 69< >7 D;< <;@8. C@>< 8877<5 756<5 >@6<5 8@ @;>@<5 7 78 @;:<8 >7 8@ 9597;>@ <>;=5 @;79@; 7 @@;77 @ @;76@ 88@@>@ D;<5 >76;< >7 788@ 78 W7;< >7 6 D;<.
!ipos de $DnprosL ormalL E5 8@ >;< 756@>@; *@GscreenL C@>< 75 @ 76@@ 7 57 @:;7 >75>7 <6;@ D;<. :entana dialoEo modal E5 @ @6@88@ 7 57 6989@ @;@ <56;@; 75@75. $Dnpro selecciónL S< 8<5 7 57 >78@;@ @>< @7<5 578769<-5;77.
88
C@>< 7567<5 7 78 #Gject aJiEator 85@<5 7 78 :<6< 57;9<; 7 >97 L@<6 57 <5 @:;9;@ 78 *creen Painter 7 8< 6989@;7<5 @;@ @>99<@; <<7675 @ 756;@ D;<3 6<@<5 8<5 <<7675 >7 8@ 997;>@ 8< @;;@56;@<5 <8<=><87 <:;7 @ >75;99K3 <; W869< @;>@<5 776@<5 756;< ;<;@@ 7 <56;@;= 6<><5 8<5 78776<5 95@875 7 @;;@56;@<5 @67;9<;767 7 78 <;>7 <8<@><.
88
88
&API!%'# (9 Batc Inp@ts Introd@cción a @na Batc Inp@ts *M1 U@ Batc Inp@ts 75 ;7;5<5 67<8K9< 7 7;967 ;@:@; 8<5 @5<5 >7 @ 6;@5@9K @;@ <>7; 76;@;87 @8<;75 >7 <;@ @59@ @;@ @7; @ B@6 I65 677<5 7 9; 8@ 6;@5@9K SM!( <7<5 @ ;@:@; @;@>< @ 6;@5@9K << <:769<3 @ 7 7 @897 67 <56;@;@ ;<75< >76@88@>< >7 6<><5 8<5 @5<5 7 7>75 776@;.
88
&API!%'# (( Form@larios. !ipos de form@larios en *AP E SAP 79567 6;75 69< >7 <;@5 >7 @7; <;8@;9<5 788@5 5< *ap*cript E5 8@ <;@ =5 @69@ >7 @7; <;8@;9< 57 6989@ >75>7 8@5 ;97;@5 7;59<75 >7 SAP. S7 @7>7 @ 788@ >75>7 8@ 6;@5@9K SE+1. *AP*cript 75 87@7 7 57 6989@ @;@ >97;5@5 9<75 7 SAP 76;7 788@5 ;7@; <;8@;9<5. *martForms E5 < =5 =98 >7 6;@:@@; 7 8<5 @67;9<;753 756= >95<9:87 >75>7 8@ 7;59K 4.+ >7 SAP. AdoGeForms E5 8< W869< 7 67<8<@ >7 <;8@;9< >7 SAP3 5;7 <; @ @89@@ 756;@6V9@ 76;7 8@ 7;75@ A><:7 SAP. +jercicio 28 Mostrar @n form@lario *AP*cript ;*+5(<. P@;@ <56;@; <;8@;9< 9;7<5 @ 8@ 6;@5@9K *+5( < 76;@<5 @ 8@ ;6@ M7W SAP / H7;;@976@5 / I;99; F<;8@;9<5 / SAP5;96 / SE+1 F<;8@;9<5. C<8<@<5 MEDRUC 85@<5 78 :<6K %95@89@;.
88
E 78 M7W W %tilidades XW Impresión test X @7<5 @ ;7:@ >7 9;759K >78 <;8@;9<.
U@ 7 7 >79<5 8@ 9;75<;@ LOCL I;75<;@ 8<@8# <>7<5 7; @ 956@ ;79@ >78 <;@9K >78 <;8@;9<.
88
+jercicio 59 &opiar @n Form@lario *AP*cript. P@;@ <9@; <;8@;9< 9;7<5 @ 8@ 6;@5@9K *+5( 7 F<;8@;9<5. C<8<@<5 MEDRUC 7 78 @< <;8@;9<. E 78 M7W 57;9<; 57879<@<5 W %tilidades XW &opiar de mandeante X
88
E <;8@;9< <8<@<5 78 <:;7 >78 <;8@;9< 7 7;7<5 <9@; 7 78 >7569< 78 7< <:;7 7 7567 @5< 87 <8<@;V 1MEDRUC .
S9 6<>< 5@89K :97 5@8>;= 78 599767 75@7 .
+jercicio 5( &rear @n Form@lario con *AP*cript. P@;@ ;7@; 756;< ;97; <;8@;9< 9;7<5 @ 8@ 6;@5@9K *+5( < 76;@<5 @ 8@ ;6@ M7W SAP /
88
H7;;@976@5 / I;99; F<;8@;9<5 / SAP5;96 / SE+1 F<;8@;9<5. C@>< 7567<5 7 8@ 6;@5@9K 57879<@<5 7 O:76<5 @;9@875 8@ <9K >7 @:77;@. C<8<@<5 78 <:;7 >78 <;8@;9< Y=MIP"IM+"F#"MYU >79<5 78 9>9<@ Y+*Y 85@<5 78 :<6K ;7@;.
'os #Gjetos parciales V@e aparecen aGajo sonL &aGeceraL S7 >77 8<5 >@6<5 >7 <;@9K >78 <;8@;9< << 5< 7673 <;@3 6@@<. PáEsL S7 >77 8@5 =9@5 7 67>;= 78 <;8@;9<. :entanasL S7 >77 8@5 76@@5 >7 @>@ =9@ <8<@;7<5 8@ 9<;@9K 7 <56;@;7<5 >76;< >7 8@5 =9@5.
88
Formatos de párrafosL S7 >77 78 <;@6< 7 67>;= 78 =;;@< >78 ;7<;67. E 8@ ;K9@ 76@@ <5 9<;@ 7 78 <;8@;9< < 79567 @76@<5. E 78 599@>< <8<@<5 @ >75;99K >78 <;8@;9< 8< @;>@<5 << <:76< 8<@8.
L<5 599767 75 ;7@; 8@5 @9@5 @<5 @8 :<6K P=9@5 < 85@<5 F2. A<;@ ;7@;7<5 8@ ;97;@ =9@ >78 <;8@;9< 7 78 7 57;9< W !ratar XW &rear +lemento X3 7 @6;9:6<5 >75 756=>@; <8<@; P=9@5 PAGINA1 7 S99@>< PAGINA PRINCIPAL DEL FORM @;>@<5 8<5 @:9<5 7 78 :<6K >7 @;>@; 57;9<;.
88
A<;@ 9;7<5 @8 :<6K 57;9<; 57879<@<5 %76@@ < 85@<5 8@ 678@ F+. L@ 76@@ 8@ 5@;7<5 @;@ <56;@; 8<5 @< 7 775967<5 << 7>7 57;3 T968<3 F7@ A6@8 <6;@5. P@;@ ;7@; 8@ 76@ 7 8@ @;67 97;9<; ><>7 >97 A6;9:6<5 756=>@; @ 7 @>99<@; 756<5 @<5 MAI 7 8@ >75;99K <7<5 6@8 << 57 756;@ 7 8@ 599767 9@7 :entana pral. D75V5 >7 ;7@89@; 756<5 @:9<5 @;>@<5 78 <;8@;9<.
88
E8 599767 @5< 75 ;7@; 8<5 F#"MA!#* $+ PA""AF#* ><>7 >79;7<5 78 <;@6< >7 =;;@< 7 6989@;7<5 7 78 ;7<;67. P@;@ ;7@; =;;@< @<5 @8 7W 57;9<; [ !ratar \ / [ &rear +lemento \ < 85@<5 *ift Z F2. L7 <7<5 7 F<;@6< >7 =;;@< T1 7 S99@>< P=;;@< >7 756;@.
%@<5 @ @;@76;9@9<75 :=59@5 887@<5 P@9@ 999@8 78 =;;@< <; >776<.
88
L< W869< 7 @7< 75 @;>@;8< @69@;8< 7 7W 57;9<; W Form@lario XW ActiJar X 3 59 7;7<5 95@89@; 78 <;8@;9< 677<5 7 9; @8 7W 57;9<; W %tilidades XW Impresión test X <;<:@<5 7 < 67@ 7;;<;75 6977 7 5@89; 78 <;8@;9< 7 :8@<. +jercicio 18 +jec@tar @n Form *AP*cript. L<5 F<;8@;9<5 57 @:;7 @ @;69; >7 ;<;@@ ABAP/4 57 6989@ 8@ 9K OPEN^FORM @;@ 7567 778< 6989@;7<5 8<5 >@6<5 >78 77;9K @67;9<; ><>7 ;7@<5 <;8@;9< 7 :8@<. D@6<5 FORM: MIPRIMERFORM PAGE: PAGINA1 E!"A!A: MAIN PARRAFO: T1 E#EME!"O: E1 C;7@<5 756;< ;<;@@ < 8@ 6;@5@9K SE!" 87 <8<@<5 << <:;7 >78 ;<;@@ RUNFORM1.
88
88
&API!%'# (, #Gject aJiEator Introd@cción al #Gject aJiEator *+69 E8 #Gject aJiEator 75 78 6@887; >7 >75@;;<88@ >7 SAP3 57 7>7 5@; S;77 P@967;3 M7 P@967;3 F69< B98>7;3 C8@55 B98>7;3 7>96<; >7 ABAP3 >99<@;9< >7 ABAP <6;@5 7;;@976@5 >7 ;<;@@9K.
+jercicio 5 &rear Er@po de f@nciones. U ;< >7 9<753 @;@ 9<75 7 6977 5998@; <<;6@976< < 5< ;78@9<@>@5 <; 78 @6<; < ;<;@@5 7 6989@3 7 78 @5< >7 8<5 ;<5 >7 9<75 7 57 ;7@ >7:7 <7@; 597;7 < . P@;@ ;7@; ;< >7 9<75 8< @;7<5 < 8@ 6;@5@9K SE".
88
88
&API!%'# ( I$ocs ;Intermediate $oc@ment< Introd@cción a I$ocs U I$ocs 75 @;9< >7 676< 8@< < ;7956;<5 7 7;967 967;@:9@; 9<;@9K 76;7 >97;7675 59567@53 @;@ 5@:7; 8@ 9<;@9K >7 8<5 I$ocs 57 7>7 @7; 9596@>< 8@ 6@:8@ EDIDC >78 >99<@;9< >7 >@6<53 78 W7;< 75 DOCNUM. +jercicio 54 Hola M@ndo en ABAP/4. E 7567 756;< ;97; ;<;@@ 67 757@;7 << ;7@; >75@;;<88< 3 5<8@767 6989@;7<5 8@5 9K >7
88
AEradecimientos Q97;< @;@>77; 78 @<< >7 9 75<5@ ; 7 59 788@ 57;@ 9<59:87 67;9@; 7567 89:;<. A 9 @9@ 7 <; @>@;7 @ <<7; @ C987 597;7 87 756@;V @;@>79><. A 9 @= <; 757@;7 @ 756>9@; 6<><5 8<5 >@5.
88
!ransacciones más @tilizadas en *AP. FI F*99 D@6<5 @756;< C76@ ?9 D@6<5 @756;< >7 ;<77><; $9 D@6<5 @756;< >7 897675 FB29 F@6;@ @ ;<77><; A;77><;# FB9 %95@89@9K >7 ;7956;< <6@:87 FB'( C76@ <;;9767 >7 ;<77><; F16 P@< @ ;<77><; F44 C<75@; FB96 A8@9K >7 ;7956;< FB59 F@6;@; @ 89767 FB'1 C76@ <;;9767 >7><; F,6 P@< @ D7><; FB51 N<6@ >7 ;V>96< FB19 C<6@:989@9K L9:;< @<; FB9 %95@89@9K >7 ;7956;< <6@:87 F*(9 %95@89@9K >7 5@8><5 #B1, C97;;7 7;9<>< <6@:87 *A'"659(,,48 I<;7 89:;< @<; F,6 P@< @ 89767 &# ?A9 C8@57 >7 <56<5 ?*9 C76;< >7 <56< *A'"659(2(( R7<;67 <56<5
88
>7
76;<
>7
MM MM9 M+,( MI-# MI"# *$
D@6<5 @756;<5 >7 @67;9@875 C;7@9K >7 7>9>< >7 <;@ E6;@>@ >7 7;@@ F@6;@9K P;<77><;
:A9( C;7@9K >7 7>9>< >7 76@ :A9 %7; 78 7>9>< :'9( S@89>@ >7 7;@@ :F9( F@6;@9K @ C89767 BA*I* *P"# *%9( PF& A'96 @>@675 *M94 PM *P"#
P@;@76;9@9K >78 59567@ A>9956;@9K >7 5@;9< C;7@; 7;95<5 @;@ 8<5 5@;9<5 M<56;@; 5@;9<5 <76@><5 M<56;@; 5@;9<5 <76@><5 P@;@76;9@9K >78 59567@
88
@
:ariaGles del *istema +,ABC67 C8"+TA"T- Al&!beto 9A'B'C':; +,APP<* Aplic!ciones +AP +,BATC B!tch !ctio 9=; +,BAT>6 +?B*T &ondo- 6i!rio +,BAT> +?B*T &ondo- ens#!l +,BAT>8 +?B*T &ondo- ?nico +,BAT>+ +?B*T b!tch- *n$edi!t!$ente +,BAT>@ +?B*T &ondo- +e$!n!l +,B*"PT B!tch inp#t !ctio 9=; +,B7P4 +?B*T &ondo- "o$bre de r!3 del report de ll!$!d! +,B+P<6 +?B*T &ondo- +!lid! de list! en +P88< +,CA<<6 C!ll $odo !ctio 9=; +,CA<< *P**- *6 p!r! &#nciones de diálogo +,CC?+ Tipo c!$bio/C!$po res#lt!do C?7"C C8"7T +,CC?T Tipo de c!$bio en t!bl! de !plic!ci(n C?7"C C8"7+*8" +,C6AT7 ech! de tipo de c!$bio de C?7"C C8"+. +,C8<"8 Col#$n! !ct#!l en l! cre!ci(n de l! list! +,CPAD7 "E$ero de págin! !ct#!l +,CP8D ?"T*7- Progr!$! princip!l +,CTAB< T!bl! de tipo de c!$bio en C?7"C C8"7+*8" +,CTP7 Tipo de c!$bio FG'GBG'GDG de C?7"C C8"7+*8" +,C?C8< Posici(n del c#rsor 9col#$n!; +,C?8@ Posici(n del c#rsor 9lne!; +,6ATA *ndic!dor- 6!tos recibidos +,6AT<8 ech! loc!l' en rel!ci(n con el #s#!rio +,6AT? ++T7- ech! del d! +,6AT?T ech! glob!l' en rel!ci(n con ?TC +,6A+T H or!rio de er!no !ctio I
88
+,6BC"T C!ntid!d ele$entos en conj#nto tr!t!do p!r! oper!ciones B6 +,6B"A B!se de d!tos l(gic! en report ABAP/4 +,6B++ ++T7- +iste$! de b!se de d!tos +,6C++ ++T7- +iste$! de diálogo +,6+"A ?"T*7- "o$bre del set de d!tos p!r! s!lid! en +P88< +,6"D Dr#po de dynpros del dynpro !ct#!l +,6"" "E$ero de l! i$!gen en p!nt!ll! !ct#!l +,6A@ 6! de se$!n! en el c!lend!rio de &ábric! +,6P8+ <#g!r de h!ll!3go de #n string +,*<7 *"T7"8- l!t&ile 9?+*"D/D7"7AT*"D 6ATA+7T; +,<7"D ?tili3!ci(n intern! 9longit#d de c!$po; +,J7 enE de c(digos de &#nciones !ct#!l +,867C ?tili3!ci(n intern! 9c!$po posiciones deci$!les; +,8<7" ?tili3!ci(n intern! 9longit#d de s!lid! de c!$po; +,TP7 ?tili3!ci(n intern! 9tipo de c!$po; +,D8?P *"T7"8- Conc!ten!ci(n +,8+T "o$bre de l! $á%#in! +,*"67= C!ntid!d de repeticiones de b#cles +,
88
+,AJ
88
+,T*T< +,T* T< *P**- Tt#lo Tt#lo de report del progr!$! de i$presi i$presi(n (n +,+AP< +, +AP< +*+T7A- ele!se +AP +,+C8<+ +, +C8<+ Col#$n!s en l! p!nt!ll p!nt!ll!! +,+<+7T +, +<+7T "o$bre de +7<7CT8",+ +7<7CT8",+7T+ 7T+ +,+ + ,+P8"8 P8"8 ?"T*7- "E$ero +P88< p!r! s!lid! de #n! list! +,,+P + +P8" 8" ?"T ? "T**7 7-- "E "E$e $ero ro +P +P88 88< < de ins nstr tr#c #cci ci(n (n TA"+7 +,+8@+ +, +8@+ <ne!s en l! p!nt!ll p!nt!ll!! +,+TA +, +TAC8 C8 *"T7ACT.- 8"7 >8"7 6i&erenci! de tie$po con For! $edi! de DreenMichG 9?TC;
88
+,?C8 *"T7ACT.- *ndic!r &#nci( +,?C8 &#nci(n n en el c(digo 8J +,?<*"7 +, ?<*"7 C8"+TA"T-- <ne! de s#br!y!d C8"+TA"T s#br!y!do o 9NNNNN 9NNNNNNNNNN NNNNNNN:; NN:; +,,?"A7 +7++*8"- "o$bre de #s#!rio segEn entr!d! ! +AP + +,?>7*T +, ?>7*T ++T7- or! +,<*"7 +, <*"7 C8"+TA"T C8"+TA"T-- r!y! ertic!l +,@A +, @A7+ 7+ T001- oned! de socied! socied!d d tr!s leer seg$ento B +,,@*<<* + "E$ero de l! lne! de ent!n! !ct#!l +,,@*"C8 Posici(n de c#rsor en l! ent!n! 9col#$n!; + +,,@*"6* *ndice de l! lne! de ent!n! !ct#!l + +,,@*"8 Posici(n de c#rsor en l! ent!n! 9lne!; + +,@*"+< +, @*"+< *"T7ACT.- <ne! en ent!n ent!n!! seleccio seleccion!d! n!d! +,,@*"=1 Coorden!d! de ent!n! 9col#$n! i3%#ierd!; + +,,@*"=2 Coorden!d! ent!n! 9col#$n! derech!; + +,,@*"1 Coorden!d! ent!n! 9lne! i3%#ierd!; + +,,@*"2 Coorden!d! de ent!n! 9lne! derech!; + +,,@T*T< *ndic!dor p!r! c!becer! estánd!r de págin! + +,=C867 +, =C867 C(digo 8J !$pli!do +,,>8"<8 #so hor!rio del #s#!rio +
88
&omando de la Garra /nend /neK /n
+!lir del siste$!. +!lir del siste$! y se pierde l!s entr!d!s %#e no h! gr!b!do. C!ncel!$os l! tr!ns!cci(n !ct#!l. /nXXXX
/o /i
is#!li3! is#!li3! el res#$en de tr!ns!cciones. borr! l! secci(n !ct#!l.
!ecnoloEKas de interfaces @tilizadas en *AP. A<7- Applic!tion
>orGenc >orGenc AGap. Editor ABAP ABAP p!r! tr!t!r el c(digo c(digo &#ente Dictionary ABAP p!r! tr!t!r de&iniciones de&iniciones de t!bl! t!bl! de b!se de d!tos' tipos de d!tos centr!les' etc. Screen Painter Painter p!r! con&ig#r!r con&ig#r!r p!nt!ll!s 9p!nt!ll!s 9p!nt!ll!s j#nto j#nto ! &#nciones p!r! diálogos de #s#!rio;
88
Menu Painter p!r! dise)!r inter&!ces de #s#!rio 9b!rr! de $enEs' b!rr! de herr!$ient!s estánd!r' b!rr! de herr!$ient!s de !plic!ciones' p!r!$etri3!ciones de tecl!s de &#nci(n; Function Builder p!r! !ct#!li3!r $(d#los de &#nciones Generador de clases p!r! !ct#!li3!r cl!ses e inter&!ces glob!les
88
:isKtenos en la weGL www.marlonfalcon.cl
88
88
88
