Trucos Abap

Ejemplos de Sentencias, Objetos y Funciones en Programas

 
- Recorre Tabla Transarente y tabla Interna (*)
- Prueba con Cadenas Replace, Split, translate, etc (*)
- Parameters y Valor por Referencia (Using Changing) (*)
- Select Anidados (*)
- ABM de Tablas Internas (Altas Bajas y Modificaciones) (*)
- ABM de Tablas Transaparentes (Altas Bajas y Modificaciones) (*)
-Parameters Y Select Options (*)
- Submit y Exports (*)
- Invocacion de un Reporte desde una funcion (**)
- Frame y At Line seleccion (*)
- Seleccion Sreen para frame de Comentarios

- Manejo de Archivos
o Levantar / Upload
o Archivo de Textos  (*)
o Planilla de Calculos (x)
o Generar / Download
o Generar Txt o Cualquier Archivo de Texto.o Ejecutar Archivos externos.
o Ejecutar Desde Sap Diferentes Archivos Externos

- Insertar Un registro en tabla Transparente (*)
- Funciones SAP Vanilla (*)
- At of Selection-Screen On Field(*)
- Hipervinculos de Lineas (At Line selection) (**)
- Field-Symbols  (**)
- Tabs en una cadena (**)
- Para que un Parametro de Seleccion sea Oculto (Password) (1)
-Unpack y Pack 
- Cómo desactivar el chequeo sintántico
- Manejar Radio Buttons y al lado del otro.
- For all Entries  
- Calculadora en POP-UP
- Try-Catch en Abap
- Leer Textos en Sap
- Busca un String en Programa ABAP
- Completar o Sacar ceros a la Izquierda de un programa
 
 (*)Ejemplos del banco Hipotecario
 (**)Base de conocimientos sap1
 (1)Sintaxis Abap / Trucos (x)Fuente Desconocida
 

Recorre Tabla Transarente y tabla Interna

REPORT ycb01 .
TABLES t000.
DATA tabla01 LIKE t000 OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF customer,
id(8) TYPE n,
name(25),
telephone(12),
END OF customer.

SELECT * FROM t000 INTO TABLE tabla01.
LOOP AT tabla01.
WRITE: tabla01-mandt,
AT 20 tabla01-mtext.
NEW-LINE.ENDLOOP.
ULINE.
LOOP AT t000.
WRITE: t000-mandt,
t000-mtext.
NEW-LINE.
ENDLOOP.
 

Prueba con Cadenas Replace, Split, translate, etc

 
REPORT ycb02 .
TABLES: t000, sflight.
DATA: aa TYPE i.
*------------------------------------------------------
*select-options: fmtext for t000-mtext,
* fmandt for t000-mandt.

*select sin Into
*select *from t000 where mandt in fmandt
* write t000-mandt.
* write t000-mtext.
* new-line.
*endselect.
*write 'no puede entrar aca'.
*------------------------------------------------------
*data: first(25), middle(2), last(25), full(54).
*first = 'Con'.
*middle = 'ca'.
*last = 'tenate'.
*concatenate first middle last into full separated by '.'.
*write full.*------------------------------------------------------
*data: list(40), name_1(25), name_2(25), name_3(25).
*data arreglo(25) type c occurs 10 with header line.

*list = 'Edison,Smith,Young,a,b,c'.

*split list at ',' into name_1 name_2 name_3.
*split list at ',' into table arreglo.

*write name_1.
*write name_2.
*write name_3.

*loop at arreglo.
* write arreglo.
* new-line.
*endloop.*------------------------------------------------------
*data names(25) type c.
*names = ' bill charles '.

*shift names right deleting trailing space.
*shift names left deleting leading space. (= Condense)

*write names.
*------------------------------------------------------
*data string(50) type c.

*string = 'El valor de la variable es X X XX es uno.'.
*write / string.

*Diferenciaentre Replace y Translate
*replace 'X' with 'Y' into string.
*translate string using 'XY'.

*write / string.

*------------------------------------------------------
*data text(50) type c.
*text = 'texas california new mexico lousiana oregon'.
*search text for 'californ1'.
*if sy-subrc ne 0.
* write 'not found.'.
*else.
* write 'se encontro'.
*endif.
*72*468921#...