MUNDOSAP

Regresar   MUNDOSAP > DESARROLLO > Programación ABAP IV
Nombre de Usuario
Contraseña
Home Descargas Registrar FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




 
 
 
Herramientas Buscar en Tema Desplegado
Prev Mensaje Previo   Próximo Mensaje Próx
  #1  
Viejo 08/03/10, 18:42:46
johava johava is offline
Member
 
Fecha de Ingreso: abr 2007
Mensajes: 75
Cool Modificar registro de una tabla interna

Hola a todos, tengo la siguiente duda sobre como modificar un regsitro de una tabla interna:

la tabla interna es

data: begin of t_resimp occurs 0,
KEYCTO(6),
TEXTCTO(50),
IMPUESTO like ZPSCD_VLRSATRIB-VALOR,
RESTAIMP like ZPSCD_VLRSATRIB-VALOR,
INDCTO(1),
end of t_resimp.


luego tengo un rutina que lee la tabla, si el registro no existe lo adiciona, en caso contrario lo modifica


*---------------------------------------------------------------------*
* Calcula valores a mostrar en resumen
*---------------------------------------------------------------------*
FORM CALCULA-VALORES.
READ TABLE t_resimp WITH KEY KEYCTO = TOPERA.
IF sy-subrc = 0.
if SUMRES = '+'.
WVALOR = t_resimp-IMPUESTO + t_detimp-VALOR.
t_resimp-IMPUESTO = WVALOR.
MODIFY t_resimp TRANSPORTING IMPUESTO WHERE KEYCTO = TOPERA.

else.
WVALOR = t_resimp-RESTAIMP + t_detimp-VALOR.
t_resimp-RESTAIMP = WVALOR.
MODIFY t_resimp TRANSPORTING RESTAIMP WHERE KEYCTO = TOPERA.
endif.

else.
t_resimp-KEYCTO = TOPERA.
t_resimp-TEXTCTO = DOPERA.
t_resimp-INDCTO = SUMRES.
CLEAR t_resimp-IMPUESTO.
CLEAR t_resimp-RESTAIMP.

if SUMRES = '+'.
t_resimp-IMPUESTO = t_detimp-VALOR.
else.
t_resimp-RESTAIMP = t_detimp-VALOR.
endif.
APPEND t_resimp.
endif.
ENDFORM.


el tema es que la modificacion no me funciona ¿que puede ser? ¿ alguien sabe un metodo mejor?

gracias por la ayuda
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Reglas de Mensajes
no puedes crear nuevos temas
no puedes responder temas
no puedes adjuntar archivos
no puedes editar tus mensajes

El código vB está On
Las caritas están On
Código [IMG] está On
Código HTML está Off
Saltar a Foro


Husos Horarios son GMT. La hora en este momento es 05:10:28.


www.mundosap.com 2006 - Spain
software crm, crm on demand, software call center, crm act, crm solutions, crm gratis, crm web