Ver Mensaje Individual
  #1  
Viejo 17/10/13, 14:44:23
CRISTINO.GARCIA CRISTINO.GARCIA is offline
Senior Member
 
Fecha de Ingreso: ago 2012
Mensajes: 101
Problema con EXEC SQL

Hola a todos, estoy trabajando con un EXEC SQL pero no me esta actualizando toda la informacion que esta contenida en la tabla interna.Si me pueden dar una ayuda se lo agradeceria.

la data almacenada en TAB_UPD son dos registros: Solo me actualiza el primer registro en el UPDATE.

DATA: FECHA_AUX2(10).

* Coneccion a la Base de Datos de ATEX
EXEC SQL.
CONNECT TO 'SAPENTPRD' AS 'C1'
ENDEXEC.

IF SY-SUBRC = 0.
EXEC SQL.
SET CONNECTION 'C1'
ENDEXEC.


LOOP AT TAB_UPD.
FECAUX = SY-DATUM.

CONCATENATE FECAUX+6(2) '/' FECAUX+4(2) '/' FECAUX(4) INTO FECAUX.
FECHA_AUX2 = TAB_UPD-FECHA_PUB.
CONCATENATE FECHA_AUX2(2) '-' FECHA_AUX2+2(2) '-' FECHA_AUX2+4(4) INTO FECHA_AUX2.
CONDENSE TAB_UPD-NRO_AVI NO-GAPS.


EXEC SQL.
UPDATE detalle_interfaces
SET fecha_proceso = sysdate,
sistema_recibe = 'SIO',
numdocsap = :doc
WHERE numero = :TAB_UPD-NRO_AVI
AND trunc(fecha_envio) = TO_DATE(:FECHA_AUX2, 'dd-mm-yyyy')
AND tipo = 'AVISO'
ENDEXEC.
ENDLOOP.

EXEC SQL.
COMMIT
ENDEXEC.

* Cerrar la coneccion de oracle
EXEC SQL.
SET CONNECTION DEFAULT
ENDEXEC.

* Liberar los recursos tomados por la base de datos de memoria
EXEC SQL.
DISCONNECT 'C1'
ENDEXEC.
ENDIF.
Responder Con Cita