61
Programación ABAP / Re: Tabla fichajes
« en: 10 de Febrero de 2009, 01:35:23 pm »
Creo que es la tabla TEVEN
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
LOOP AT messtab INTO gs_messtab
WHERE msgtyp = 'E'.
CLEAR lf_line.
MESSAGE ID gs_messtab-msgid
TYPE gs_messtab-msgtyp
NUMBER gs_messtab-msgnr
WITH gs_messtab-msgv1
gs_messtab-msgv2
gs_messtab-msgv3
gs_messtab-msgv4 INTO lf_line.
WRITE: / lf_line.
ENDLOOP.
RANGES r_werks FOR t001w-werks.
*&---------------------------------------------------------------------*
*& Form OBTENER_CENTROS_POR_SOCIEDAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM obtener_centros_por_sociedad .
DATA : lt_t001k LIKE t001k OCCURS 0 WITH HEADER LINE.
* Seleccionamos el Centro por Sociedad
SELECT * FROM t001k INTO TABLE lt_t001k
WHERE bukrs = p_bukrs.
LOOP AT lt_t001k.
SELECT SINGLE werks INTO r_werks-low
FROM t001w
WHERE bwkey = lt_t001k-bwkey.
r_werks-option = 'EQ'.
* r_werks-low = t001k-bwkey.
r_werks-sign = 'I'.
APPEND r_werks.
ENDLOOP.
ENDFORM. " OBTENER_CENTROS_POR_SOCIEDAD